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SECTION  I 
INTRODUCTION 


The  QKLOOK  programs  are  a  set  of  four  FORTRAN  programs  which  compute 
component,  system,  and  total  target  vulnerable  areas  for  Directed  High 
Energy  Weapons  (DHEW) .  Vulnerable  area  Is  defined  to  be  the  product  of 
presented  area  and  probability  of  kill  given  a  hit  (P(K/H))  on  that  area. 

The  target  is  described  by  a  set  of  shot  lines:  parallel  rays  passed 
through  the  target,  perpendicular  to  a  specified  viewing  plane.  These 
shot  lines  are  generated  from  geometric  target  models  by  other  computer 
programs  such  as  FASTGEN  or  MAGIC.  In  addition  to  the  shot  line  data,  the 
user  must  supply  detailed  compone  t  information  such  as  component  code 
number,  material  type,  density  factor,  initial  operating  temperature,  and 
melt  analysis  type  (melt-in-place  or  melt-removed),  to  be  used  in  the  pene¬ 
tration  computations.  The  degree  of  component  kill  is  determined  by  the 
depth  to  which  the  weapon  is  able  to  penetrate  the  component.  Depths  of 
I  penetration  and  associated  P(K/H)'s  for  each  critical  component  are  specified 
by  the  user.  QKLOOK  then  interpolates  linearly  between  these  values  to 
determine  actual  component  P(K/H)  values  (and  hence  vulnerable  areas)  at 
times  specified  by  the  user.  The  weapon  is  described  simply  by  its  flux 
density,  which  may  (but  need  not)  vary  with  time.  The  entire  target  is 
assumed  to  be  flood- loaded  with  this  flux  density. 

The  four  QKLOOK  programs  and  their  specific  functions  are: 

CONMAG  -  Converts  shot  line  encounter  data  produced  from  a  MAGIC  target 
description  to  the  format  required  by  QKPK.  (No  conversion 
is  necessary  for  a  FASTGEN  target  description) . 

PRERD  -  Checks  the  input  data  assembled  for  QKPK  for  possible  errors, 
and  produces  several  summary  tables  of  that  input  data. 

QKPK  -  Simulates  penetration  along  each  shot  line  and  computes  pene¬ 
tration  times  for  each  encounter  with  a  critical  component. 

PEAKAY  -  Computes  component,  system,  and  total  target  vulnerable  areas 

at  specified  time  intervals  using  the  penetration  times  computed 
by  program  QKPK. 

The  vulnerable  areas  generated  by  QKLOOK  can  be  used  in  vulnerablility 
assessment  and  reduction  studies,  or  as  input  to  "end-game"  computer  pro¬ 
grams  where  target  probability  of  kill  (Pk  rather  than  P(K/H))  is  determined. 
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ANALYST  SECTIONS 

Sections  II,  III,  and  IV  are  intended  for  use  by  the  program  analyst 
who  must  acquire  a  detailed  understanding  of  the  programs.  Section  II 
contains  a  set  of  conceptual  flowcharts  which  provide  a  pictorial  summary 
of  the  execution  steps  in  the  QKLOOK  programs.  The  basic  mathematical  con¬ 
cepts  employed  in  the  QKLOOK  programs  are  presented  in  Section  III,  the 
Mathematical  Model.  The  Simulation  Model,  Section  IV,  provides  a  discussion 
of  the  individual  FORTRAN  statements  in  each  of  the  QKLOOK  program  units.  A 
dictionary  of  the  FORTRAN  variable  names  is  included  at  the  end  of  Section  IV. 


USER  SECTIONS 

Sections  V,  VI,  and  VII  form  the  user  portion  of  this  manual.  The 
information  and  data  contained  in  these  sections  are  primarily  in  tabular 
form  so  that  they  may  be  used  as  quick  reference  sources.  Section  V  is 
used  to  present  the  formats,  options,  and  definitions  for  all  parameters 
used  as  input  for  the  QKLOOK  programs.  The  output  for  all  of  the  programs 
is  presented  in  Section  VI.  The  binary  output  files  are  described  in 
figures  which  list  each  output  parameter  as  well  as  its  units  and  definition. 
Each  page  of  line  printer  output  is  also  discussed  and  an  example  shown, 
including  warning  messages  from  the  QKLOOK  programs.  Section  VII  is  used 
to  describe  a  sample  problem.  The  figures  for  this  section  include  copies 
of  all  formatted  input  and  output.  The  sample  problem  is  one  that  exercises 
many  of  the  program  features  and  user  options.  The  user  may  also  find  the 
first  part  of  Section  II  useful.  A  flowchart  is  given  there  showing  the 
interaction  of  the  various  QKLOOK  programs. 


PROGRAM  REQUIREMENTS/CONSTRAINTS 

The  largest  QKLOOK  program  requires  22,197  (532658)  words  of  memory  on 
a  UNIVAC  1110  computer.  Peripheral  requirements  include  one  card  reader, 
one  line  printer,  and  two  mass  storage  devices.  The  programs  in  their  pre¬ 
sent  configurations  have  the  following  constraints: 

1.  No  more  than  498  components  may  be  in  the  target  model  defined  in 
the  QKPK  data  deck  unless  array  dimensions  in  the  program  are 
increased. 

2.  There  must  be  no  more  than  100  encounters  along  any  one  shot  line 
unless  array  dimensions  in  the  program  are  increased. 

3.  No  more  than  10  systems  of  components  may  be  defined  unless  array 
dimensions  in  the  program  are  increased. 

4.  Maximum  weapon  intensity  must  be  less  than  or  equal  to  60,000 
watts/cm2  in  order  for  the  penetration  rate  calculations  to  be 
valid. 
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FIGURE  2-5.  QKLOOK;  Program  PRERD  Conceptioal  Flowchard  (Page  2  of  3) 
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approximated  by  substituting  the  vaporization  temperature  for  T*  in 
Equation  3-11: 


ctF  =  k 


(3-13) 


where 

=  the  component  vaporization  temperature,  ®C 

The  total  heat  absorbed  during  this  type  of  encounter  is  approximated 
by  multiplying  Equation  3-13  by  the  component  area  and  time: 


Q  =  Atk 


(3-14) 


Similarly  the  heat  required  can  be  approximated  by  replacing  T*  with  T 
in  Equation  3-9 


Q  =  AZp 


Cps  (Tjjj  -  Ti)  +  A  +  Cp£ 


(3-15) 


The  penetration  rate  equation  for  the  melt-in-place  analysis  when  the 
surface  temperature  exceeds  T^  can  be  obtained  by  equating  Equations 
3-14  and  3-15,  and  solving  for  the  rate,  R  where  R  =  Z/t. 


Cps  C’m  ■  ^ 
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COMPONENT  PROBABILITIES  OF  KILL 

For  each  critical  component  along  each  shot  line,  penetration  times  are 
computed  using  the  basic  distance/rate  equation: 


t 


(3-17) 


where 

t  =  the  penetration  time,  seconds 
d  =  the  penetration  distance,  meters 
R  =  the  penetration  rate,  m/sec 

The  computed  penetration  times  are: 


tj^  =  the  time  needed  to  penetrate  from  the  beginning  of  the  shot  line 
to  the  depth  necessary  for  a  non-zero  component  Pk  equal  to  Pk^, 

(N  is  in  the  range  from  one  to  one  less  than  the  number  of  Pk 
values  specified),  seconds 

=  the  time  needed  to  penetrate  from  the  beginning  of  the  shot  line 
to  the  depth  necessary  for  a  component  Pk  equal  to  ^^^+1 

is  greater  than  or  equal  to  Pk^)»  seconds 

tj^  =  the  time  needed  to  penetrate  from  the  beginning  of  the  shot 

line  through  the  line  of  sight  thickness  of  the  component,  seconds 

The  component  kill  probability  for  a  time,  x,  is  computed  as  follows  (N  .  =  1) 

min 

If  T  <  tjj  or  t^  <  t^  then  Pk  *  0.0 
min  min 

h.  -  *^N  .  *11+1  ^  *N 

min  min 

then 


Pk 


(3-18) 


where 


tM  “  *N  ’  *L^ 

max 

If  T  >  t^  and 

,  then  Pk  ■  Pk^ 

max  max  max 


Change  1 


3-8 


JTCG/AS-79-V-008 


COMPONENT  PRESENTED  AND  VULNERABLE  AREAS 

The  total  presented  area  for  a  component  can  be  computed  very  easily 
by  counting  the  number  of  shot  lines  which  intersect  the  component.  If  a 
shot  line  encounters  a  component  one  or  more  times,  the  presented  area  is 
assumed  to  fill  the  corresponding  grid  cell.  Since  there  is  only  one  shot 
line  per  grid  cell,  a  component’s  presented  area  for  one  view  can  be 
expressed  as: 


A 

P 


^S 


(3-19) 


where 

2 

Ap  =  the  total  component  presented  area,  ft 

Ng  =  the  number  of  shot  lines  encountering  the  component  at  least  once, 
nondimensional  ^ 

Ag  =  the  grid  cell  area,  ft 

The  vulnerable  area  of  a  component  is  defined  as  the  product  of  its 
presented  area  and  its  kill  probability. 


Ay  =  Pk.j,  Ap 

where 


(3-20) 


the  total  component  vulnerable  area,  ft 

the  total  component  kill  probability  for  the  view,  nondimensional 


3-9 


Change  1 


JTCG/AS-79-V-008 


Substituting  Equation  3-19  for  the  presented  area,  the  vulnerable  area 
is  expressed  as: 


%  ”  (3-21) 

In  this  problem,  a  component  may  be  encountered  in  several  grid 
cells. 

Let 

Pk^  =  the  component  probability  of  kill  for  the  Hh  shot  line 
Computing  Pkj  as  the  average  of  the  shot  line  kill  probabilities: 


then 


Ns 

Pk  =  — — _ _ _ 


Pk,  N-  =  £  Pk. 
‘  ^  i=l  ^ 


(3-22) 


(3-23) 


Substituting  the  right  hand  side  of  Equation  3-23  into  Equation  3-21 


(3-24) 


A  component  may  also  be  encountered  more  than  once  along  a  shot 
line.  The  total  P(K/H)  for  the  component  on  the  shot  line  is  the  sum  of 
the  probabilities  of  the  exclusive  events,  as  follows: 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(MATHEMATICAL  MODEL) 


Abbreviation 
or  symbol 

Equivalent  in 
Simulation 
Model 

Definition 

Units 

"s 

Number  of  shot  lines 
encountering  a  component 

— 

N 

••• 

Number  of  encounters  for  a 
component  on  the  jth  shot 
line 

PK 

Probability  of  kill  for  the 
Hh  encounter  and  no  kill 
on  a  previous  encounter 

’’i 

PK 

Component  probability  of 
kill  on  the  \th  encounter 

— 

’’“j 

— 

Component  probability  of 
kill  from  one  shot  line 

— 

PkT 

Average  of  the  probabili¬ 
ties  of  kill  for  all  shot 
lines 

— 

Q 

— 

Heat  absorbed  by  the 
component 

joules 

R 

RATE 

Penetration  rate  of  a 
Directed  High  Energy 

Weapon  against  a  component 

m/sec 

t 

Penetration  time  (in  Com¬ 
ponent  Probabilities  of 

Kill  subsection);  time 
duration  of  an  encounter 
(in  Penetration  Rates 
subsection) 

seconds 

T* 

TSTAR 

Component  outer  surface 
temperature 

°C 

TINIT 

Component  initial  operating 
temperature 

°C 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(MATHEMATICAL  MODEL) 


Equivalent  in 
Simulation 
Model 

CMLT 


rVAP 


PLS 


PK3 


PKTIME 


PKVAL 


DP 


ALP 


Definition 


Component  melting 
temperature 

Component  vaporization 
temperature 

Time  required  to  penetrate 
from  the  beginning  of  a 
shot  line  to  the  depth 
necessary  to  perforate 
the  component 

Time  needed  to  achieve  the 
maximum  Pk  for  a  component 
in  a  time  interval 

Time  required  to  penetrate 
from  the  beginning  of  a 
shot  line  to  the  depth 
associated  with  a  Pk  equal 
to  Pk^ 

Pk  associated  with  pen- 
tration  to  a  specified 
depth 

Component  actual  line  of 
sight  thickness 

Component  coupling 
coefficient,  absorption 
factor 

Energy  per  unit  mass 
needed  to  raise  the  tem¬ 
perature  from  T,  to  T 
1  m 


Units 


seconds 


seconds 


seconds 


meters 


joules/kgm 
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SUBROUTINE  BSRCH 


This  subroutine  is  used  to  find  the  link  between  a  component  number  for  an 
encounter  and  the  component  information  arrays.  This  is  done  by  executing  a 
binary  search  of  the  component  number  array,  ICOMP,  which  was  sorted  into  ascend¬ 
ing  order  in  Subroutine  FSORT.  If  the  binary  search  can  find  no  link,  a 
default  link  is  assigned. 


The  first  set  of  statements 


sudROurisE  asf)CH(icciMP,>iQcaMi>.iTC) 

CUXMON  /FKOP/  »LP.Mnu,CP,lMLT.«L»H»0,l»ATt,  JCOMP,  J,UP,«K,TV*P, 

S  CPL.lTtH.T 

COMHON  /lUNITS/  IhO,  InW.U'i.  lour 
DIMENSION  ICOMP(ITC) 

is  used  to  pass  three  arguments,  ICOMP,  NOCOMP,  and  ITC  to  this  subroutine. 

ICOMP  is  the  array  being  searched;  NOCOMP  is  the  number  of  values  in  this  array; 
and  ITC  is  the  dimension  of  ICOMP.  The  statements  are  also  used  to  specify  two 
named  commons  which  are  used  to  transfer  information  into  and  out  of  this  sub¬ 
routine.  In  COMMON  /PROP/,  the  variable  JCOMP  is  the  component  number  to  be 
matched  and  the  variable  J  is  the  subscript  of  the  matching  element  in  array 
ICOMP.  The  DIMENSION  statement  is  used  to  declare  the  argument  ICOMP  to  be  an 
array. 


The  statements 


iaE6  3  0 

lENO  s  NCCO«P  ♦  I 
to  CONTINUE 

J  3  (IBED  *  lENU)  /  2 
IE  (J  .NE.  IdEG)  Then 
If  ncoNP(j)  .lt.  jcomp)  then 
IBEG  a  J 

EUSE  IF  (ICOMP(J)  .GT.  JCOMP)  THEN 
lENO  :  J 
ENU  IF 
ELSE 


are  used  to  perform  the  binary  search.  The  algorithm  begins  by  setting  a 
pointer,  IBEG,  at  the  beginning  of  the  array  and  another  pointer,  lEND,  at  the 
end  of  the  array.  An  iterative  procedure  is  used  to  set  a  third  pointer,  J, 
halfway  between  IBEG  and  lEND  and  to  compare  the  Jth  element  with  the  desired 
value,  JCOMP.  The  first  block  IF  statement  is  false  only  if  no  match  for  JCOMP 
exists  in  the  array  ICOMP.  In  this  case,  the  ELSE  branch  is  executed.  In  all 
other  cases,  the  block  IF  in  the  THEN  branch  is  executed  to  compare  the  values 
JCOMP  and  ICOMP(J).  If  JCOMP  is  larger,  the  beginning  pointer,  IBEG,  is  moved 
to  position  J.  If  JCOMP  is  smaller,  the  end  pointer,  TEND,  is  moved  to  J.  If 
the  values  are  equal,  the  algorithm  is  finished. 


The  following  statements 


IF  (JCUNP  .LT.  1000)  THEN 
J  *  ITC  -  1 

^*'j^3^1TC  *'*^**'*^  •<•£.  TOOO)  ,*n0.  (JCOMP  ,lE.  TOON))  THEN 
ELSE 

•nITE  (InP.lOO)  JCOMP 
J  *  iTC 
END  IF 
BETUHN 
END  IF 
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IF  (ICOMP(J)  .NE.  JCOMP)  GO  TO  10 
RETURN 

100  FORMAT  (1>,110,*  HAS  NOT  FOUND  IN  LI  ST . . .DEF AULT  TO  7075  AL*> 
END 


are  used  to  allow  a  component  number,  JCOMP,  to  use  default  characteristics; 
i.e.,  the  formatted  input  for  the  component  information  arrays  does  not  need 
to  include  every  component  in  all  shot  line  encounters.  An  encounter 
component  JCOMP  with  a  number  less  than  1,000  and  no  match  in  the  ICOMP  array 
is  assigned  default  data  for  a  2024  AL  component.  These  default  data  for  this 
type  of  component  are  stored  at  location  ITC-1  in  the  component  information 
arrays.  Similarly,  a  component  number  JCOMP  between  the  numbers  7000  and  7900 
with  no  match  in  the  ICOMP  array  is  assigned  default  data  (stored  at  location 
ITC  in  the  component  information  array)  for  a  7075  AL  component.  If  a 
component  number,  JCOMP,  is  in  neither  of  the  above  ranges  and  has  no  match 
in  the  array  ICOMP,  the  subroutine  causes  a  warning  message  to  be  written.  At 
this  point,  the  default  link  ITC  (7075  AL)  is  assigned.  Control  is  then 
returned  to  the  calling  routine.  The  two  END  IF  statements  close  the  block  IF 
statement  assigning  the  default  characteristics  and  the  block  IF  checking 
whether  a  match  for  JCOMP  may  yet  exist  in  the  array  ICOMP.  If  the  algorithm 
has  not  yet  completed,  the  GO  TO  statement  branches  to  Statement  10  for 
another  iteration. 


Change  1 
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are  used  to  conclude  the  binary  output  file  in  QKLOOK  format  by  writing  a  final 
binary  record  with  the  values  of  XX  (=  999.0).  The  binary  file  is  then  rewound 
and  the  first  record  is  overwritten.  The  new  initial  record  is  identical  to 
the  original  one  except  that  it  includes  the  minimum  and  maximum  coordinate 
values  of  all  shot  lines  on  the  viewing  plane.  The  purpose  of  the  new  initial 
record  is  to  facilitate  the  use  of  a  plotting  program  which  would  require  the 
minimum  and  maximum  values  for  scaling  before  the  data  can  be  plotted.  Finally, 
the  binary  file  on  device  lOUT  is  rewound  in  preparation  for  a  run  of  Program 
QKPK. 


The  last  set  of  statements 


tao  ao(i>i*r  (FT.i,rii.f«.3.ra.j,x3.isx,r«.i,2x,Fa,i) 
no  FO««*T  (3(latF7.2.F9.1,t3.F;.2)) 

200  format  (2(IR,FT,2.7X,F«.Ul3.Fr.2)) 

210  format  (l(.Fa.l,«iT.|,3)l,Fa.2,ai,13) 

220  format  (n,  10**1 

223  format  (ishimu.  UF  V(£m3  a, IO*b) 

230  FORMAT  (2(3A.etS.ai,30’l,E10.31 

233  Format  (T()m«*Z1“UT»i  i,Ft0.2.13M  El.i.V*llON  a,F|0.2. 

1  I3H  OUIU  S|2k  s.Fia.2) 

2a0  Format  a,Fia.2>AH  tmTn  a,Ft0.2/7Mo/MAl  *.FI0.2, 

2  8M  tmtm  a. F 10.2) 

2A3  Format  (thtt 

lUOtf  format  (IHI.ARHThE  FOLLUMlNC  IS  AN  ECHO  OF  ThE  DATA  rRITTEN  ON  THE 
t  MAStC  OttTRUT  F  lLE//tH0.30HA,  EL,  GRIO,  LU,  »,  «,  *,  »,  R/ 

2  IH  ,3F|0.3.{10.3F10,2) 

toot  FORMAT  (THO.bOHAXtt).  ATltl,  *2tl),  ISRtdJ,  tfCUCt),  ITHtl),  ttBI 
Il),t00<l).  Ia|,l70/(tH  ,3Ft6.3,SltO)) 
t002  Format  (tH0,3«H*l,  Ml,  (A,  tl,  AX,  XX,  XX,  XX,  XX/tH  ,3FtO,3,ItO, 
t  5F10.3) 

t003  format  (IhO,A2M*2m>  ElEV,  6NtO,  LL,  TMX,  TMM,  2mx,  2HN,  R/ 

I  tH  .3F10.3. tlO,3F10.3/lH  ,3X,73H(THe  RECORO  AHOVE  ACTUALLT  OVER* 
ErnITES  The  v£RT  FtRS7  RECORD  ON  THE  F tLE) / tHO, 32HENO  OF  ECHO  OF  Mt 
IGIC  OUfRoT  FtLt/lMtl 
EmU 


is  used  to  define  all  formats  used  for  input  and  output  within  the  program  and 
to  indicate  the  end  of  this  program. 
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SUBROUTINE  FSORT 

This  subroutine  is  invoked  by  two  programs  in  the  QKLOOK  set,  Programs 
PRERD  and  QKPK.  It  is  used  to  sort  the  component  information  arrays  into 
ascending  order  by  component  number.  ICOMP  is  the  array  of  component  numbers 
and  is  the  basis  for  the  sorting  process  while  NOCOMP  is  the  number  of 
components  in  the  array  ICOMP.  With  the  exception  of  ITC  and  PKNBR,  which  are 
used  to  dimension  the  passed  arrays,  the  remaining  arguments  are  other 
component  information  arrays.  These  information  arrays  correspond  to  the 
component  number  array  by  subscripts;  therefore,  a  switch  in  this  routine  will 
require  switches  in  each  of  the  12  corresponding  arrays.  Subroutine  FSORT  is 
used  to  perform  a  diminishing  increment  sort  which  requires  a  large  number  of 
comparisons  but  a  relatively  small  number  of  switches,  making  this  algorithm 
very  efficient  for  this  type  of  problem. 

The  first  set  of  statements 


SUdSUUTINE  FSUrT  llCOk'H.NOCOMl’,'-*!  I»N*,TlNn,MOP  JtS, 

S  OEPIH.r>KklkL,  ITC.PKNtfM.IHlNFL.RHOP  ,  11  ,  III) 

(UC). 

S  ICiivr  (IlC), 

%  IfG  (ItC), 

»  lun  mc), 

k  10  (ITC). 

S  II  (ITC), 

»  K*1  tlTC), 

S  NOPNTS(ITC), 

i  PK>.dK 

REAL  BUFFNKSOl, 

S  BOFFkEISO), 

}  oertm  (PKNex.nc). 

S  RKItL  (RKNBk.ITC), 

S  RhOF  (ITC). 

S  THINFLIITC). 

s  Unit  (irc) 


is  used  to  transfer  16  arguments  to  and  from  the  calling  programs,  and  to 
declare  13  of  these  arguments  to  be  arrays. 


The  statements 


M  «  NUCOHP 

10  continue 

M  B  M  /  ; 

IF  (»•  .LI.  1)  GO  TO  50 


are  used  to  compute  and  test  the  increment  size  M.  Initially,  M  is  half  of  the 
array  length.  After  each  of  the  M  sublists  is  sorted,  the  routine  returns  to 
Statement  10.  The  increment  size  M  is  halved  again  and  the  sublist  is  sorted. 
The  final  sort  is  executed  when  M  equals  1;  then,  the  above  IF  statement  causes 
a  branch  to  Statement  50,  the  end  of  the  subroutine. 

The  next  statements 

K  9  NOCOMp  •  M 
00  40  J  «  WK 


Change  1 
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are  used  to  compute  K,  the  number  of  steps  required  to  sort  the  M  sublists,  and 
to  initiate  the  execution  of  a  DO  loop  for  every  step. 


The  statements 


t  »  J 

20  continue 

IM  a  I  ♦  H 

I  IF  (ICOMP(I)  .(.E.  ICOHP(Im))  go  to  40 


are  used  to  perform  a  comparison  between  two  elements  in  a  sublist.  The  com¬ 
putation  for  IM  is  used  to  indicate  that  each  sublist  consists  of  all  array 
elements  at  intervals  equal  to  the  increment  size  M.  If  the  comparison  shows 
that  these  two  elements  are  already  in  ascending  order,  the  routine  branches  to 
Statement  40,  the  end  of  the  DO  loop;  otherwise,  the  two  array  elements  and  all 
corresponding  array  elements  must  be  interchanged. 


These  statements 


NO  s  ICOMP(I) 

N1  m  H»T(IJ 
N2  >  IFG(I) 

NS  >  IT«U(1) 

N4  *  14NA(1) 

N5  *  ltd) 

N«  4  lull) 

NT  a  NOPNTS(l) 

St  a  TINIT(I) 

00  so  MM  a  t.MKNBN 

BUFFxUHM)  a  UEPTM(MM,I) 
BOFFPEIMM)  a  PKVAUtMM.I) 

30  CONTINUE 

$4  3  TMlNFcd) 

S5  a  NnOFCI) 

ICOMPd)  a  ICQMPdM) 

M*IdJ  a  MATdM) 

IFGd)  a  IFGdM) 

ITABd)  a  ITAallM) 
lANAd)  a  lANAdM) 
lYd)  a  lYdM) 
lUd)  a  lUdM) 

NOPNTSd)  a  NOPNTSdM) 

TINII  d)  a  TI;4IIdM) 

00  3 A  MM  a  1 .MANBM 

OEPThImm.I)  a  0EPTm(MH,IM) 
MKvALlMMfl)  a  PAVAUmM.IM) 
S4  CUNTImuE 

THINFud)  a  TnINFLdM) 

PmOF  d)  a  RhUFCIM) 

ICOMMdM)  a  NO 
MAT (IH)  a  Nt 
IFGdM)  a  N2 
ITABdM)  a  NS 
lANAdM)  a  N« 
lYdM)  a  NS 
lUdM)  a  NO 
NOPNTSdM)  a  NT 
TIMTdM)  a  SI 
00  SO  MM  a  1,PKNBH 

0EPTM(mm,1m)  a  BUFFHdMM) 
PKVAL(MM,IM)  a  SUFFR2(MM) 
SB  CONTINUE 

THINFLdM)  a  Sa 
PHUFCIM)  a  SS 


are  used  to  switch  the  two  compared  elements  along  with  all  elements  from  the 
I  12  other  arrays  corresponding  to  them. 
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The  statements 


I  *  I  -  M 

IF  (I  .GE.  1)  GO  TO  20 


are  used  to  finish  the  sort  of  the  sublist.  After  the  switch  of  two  sublist 
elements  in  the  previous  step,  I  is  decremented  to  the  next  element  lower  in 
the  sublist.  The  IF  statent  is  used  to  branch  back  to  Statement  20  where  the 
two  lower  elements  of  the  sublist  are  sorted.  The  IF  statement  does  not  branch 
back  when  I  is  already  at  the  bottom  of  the  sublist. 

The  statements 

40  CONTINUE 
GO  TO  10 


are  used  to  end  the  DO  loop  and  cause  a  branch  to  Statement  10.  The  DO  loop 
is  completed  when  all  of  the  M  sublists  are  sorted.  The  branch  to  Statement  10 
is  used  to  halve  the  increment  size  and  repeat  the  above  steps. 

The  statements 

so  CONTINUE 
OETURN 
ENO 


are  executed  only  after  the  increment  size  M  is  less  than  one,  which  means  that 
the  array  ICOMP  has  been  sorted  into  one  sublist.  These  statements  are  used  to 
return  control  to  the  calling  subroutine  and  to  end  this  program  unit. 


Change  1 
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PROGRAM  PEAKAY 


This  program  is  the  fourth  in  the  series  of  QKLOOK  programs.  It  is  used 
to  compute  component,  system,  and  total  target  kill  probabilities  and  vulner¬ 
able  areas.  The  encounter  penetration  times,  which  are  read  from  the  binary 
file  generated  by  Program  QKPK,  are  used  to  compute  the  kill  probabilities  in 
Subroutine  PENT,  the  only  subroutine  in  this  program.  After  the  component 
and  system  Pk's  are  known,  the  vulnerable  area  computations  are  done  in  Program 
PEAKAY  with  the  assumption  that  the  presented  area  for  each  encounter  equals 
the  grid  size.  The  printed  output  includes  presented  areas  and  vulnerable 
areas  for  individual  components,  systems  of  components,  and  total  target. 

These  data  can  be  computed  for  up  to  10  time  intervals  specified  by  the  user 
in  the  formatted  input.  A  greater  number  of  time  intervals  may  be  obtained  by 
using  multiple  runs  with  the  same  binary  input  file.  A  copy  of  all  input,  the 
shot  line  Pk's,  and  the  formatted  output  are  also  produced  on  four  binary 
output  files. 


The  first  group  of  statements 


INreCEO  AVELAS 
COMMON 

i  MKVALCIO,  100)  .NUHNrSCSgOl.MLbl  Itiu)  . 

$  name  U  00)  ,Ibt  .NSHl.Ntt.C.ICUMM  (^00).  SM,,(  1^,200)  , 

S  NUCOHM, COMM AV (Sod. 1 0 ) . OHIO , H Mk S ( 1 0 ) , N t I Mt , I T  C 5o0 ) , 

S  f'MU(.t(l0.l0),lmS0O).t'A«tAl)>00) 

COMMON  /ONE/  IEO(50o),PHNt(4,5o0),AVfLA6 
COMMON  /LUNITS/  IWO.lNft.IIO.IOUt 

UImENSION  >>KM((Eu0),TVA(t0),TVAM(lO>/lbET(|0),!>AHEA(10), 


is  used  to  declare  AVFLAG  as  integer,  to  allocate  common  storage  areas,  and  to 
declare  array  dimensions. 


The  statements 

DATA 

INO, I4N, IIN.IUUI I # IUUT2, luur  5, iOuTO  /7,», 2, 10, 11, 12, 13/ 

UA1  A 

MMukl  /100«0./ 

OATA 

I$I,NUM,NSmT  /3*U/ 

DATA 

P*NE»  /b00»0,/ 

DATA 

(COMP»V(I,1),I=1,500) 

DATA 

(COMP*y(I,2),lsl,500) 

DATA 

(C0mP*v(I, 3), 1=1,500) 

/5UO»0./ 

DATA 

(C0MP«y(l,a) ,1=1,500} 

/5«0*0,/ 

DATA 

<C0MP»v(I,5),i=i,500) 

/500*0./ 

llATA 

lCOMH»y(I,<,),isi,500) 

/50D*0,/ 

DATA 

(CoMP»y(I,7),l=l,500) 

/9ao*o,/ 

DATA 

(C0MPly(l,«l,ist,500) 

/500*0,/ 

DATA 

(COMM«y(I,9),Iai,500) 

/SVOttD./ 

DATA 

(C0MP«y(I,iu),Izl,5001 

1  /500*0*/ 

UATA 

(Pnn) (1,1), 1=1, 500)  /5yo«o./ 

DATA 

(MPNr(2,I),l=i,500)  /500*0./ 

DATA 

(PnnT(3,1), 1x1,500)  /500«0./ 

DATA 

(PHNrca,!), 1X1,500)  /5«0«o./ 

DATA 

ITOTL  /O/ 

data 

TV*  /10*0./ 

DATA 

S*t<E*  /10«0./ 

DATA 

ITC  /500/ 

OA  TA 

PCV  /90./ 

DATA 

SOFSUM  /0.00200304/ 

represent  DATA  statements,  which  are  used  to  initialize  several  variables. 

The  variables  in  the  first  DATA  statement  are  the  input  and  output  device 
numbers.  The  last  three  DATA  statements  are  used  to  initialize  the  dimension 
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of  the  component  arrays,  ITC,  the  percent  of  vulnerable  area,  PCV,  and  a  factor 
for  conversion  from  square  feet  to  square  meters,  SQFSQM.  The  rest  of  the 
variables  in  the  DATA  statements  are  initialized  equal  to  0.00 

The  statements 


OPEN  ( IPO. F ILE* 'PKOAT* RECFMs 'OS ',M*«WECL=8«, PADS' YES') 

OPEN  (INN.FILEp'PKPPIM '.PECFMs'DS'.CAHWIASE  CONTKOLs'FORTRAn') 
OPEN  (JIN.FILEs'OKPRTAPEOUT'.FONMs'UNFOWPATTEO'.NECFms'vaRIAALE ') 
OPEN  (lOUYl.FlUEs'PKTAPEUuTl ' ,f OHM= 'UNFUPHA 1  TED ' . NECFPs ' V AS UbtE ' ) 
OPEN  tIOU1£.Fll.E  =  'PR1APEOUl2',FO«Hs'UNFOBM*TIED'.RECFMi'VA«UBLE') 
OPEN  (IOUT3,FILE='PKTAPEOuTS',FOPMs'IiNFO(<MATT£D',i«ECFP.s'VAHUBLE') 
OPEN  {IOUTA.FILEs'PKTAPEOUTA'.FONMs'uNF OWHA TIED'. kECFMs' VARIABLE') 


are  used  to  connect  logical  units  to  the  input  and  output  files  and  to 
establish  the  connection  properties  between  each  unit/ file  pair. 


The  statements 

REaINO  tlN 

I  READ  (IR0.1003)  NTIME.AVFLAS 

READ  tIRD.JOOl)  (I1MES(J),J=1,NT1ME) 

read  (llN)  A2,EL.GRI0.I0VEH,rMAA,rHIt.,ZMAX,EH:K'.N0CUHP 

READ  (IIN)  (lCUNP(n.lFG(l).IY(l).IU(I).NOPNTsa)> 

S  (HKVAL  (J.l)  .  j:l  .NJPNTSd  ))  .  Is)  .NOCUHP)  ,  IRVRS,  IFHAX, 
i  (FTIH(l),FACN(l),Is>,IFMAA) 


are  used  to  read  the  formatted  input  file  and  the  first  two  records  of  the 
binary  file  from  Program  QKPK.  The  REWIND  statement  is  used  insure  that  the 
first  binary  read  will  start  at  the  file  origin.  The  two  formatted  READ  state- 
I  ments  are  used  to  read  the  number  of  time  intervals,  the  flag  determining 
1  whether  component  vulnerabilities  are  to  be  calculated  as  true  or  as  incremental, 
and  the  times  for  each  interval.  This  is  the  only  formatted  input  required  for 
this  program.  The  two  binary  READ  statements  are  used  to  read  the  first  two 
records  of  the  binary  input  file.  These  data  include  the  viewing  grid  descrip¬ 
tion,  the  component  information  arrays,  and  the  flux  distribution  table. 


The  next  statements 

I  IF  die  .6E.  NOCOMP.?)  ImEN 

WRITE  (IaR.A)  NTIME, (TImES(J),J=i,NTIME) 
kVRS  s  IRvRS 
amIte  (i.A.ei)  Rvws 

•  rite  d.R.Buu)  IF»A« 

IE  «  0. 

Ill'  B20  I  s  l.IFMAA 
Ib  =  TE 
TE  =  F  dPd  ) 

•  RITE  d'.R.IIKi)  To,TE,FAC‘tI) 

820  CONTINUE 
Id  s  TE 
It  s  l.£5(i 

•  idTE  (IaR.BIIi)  Tp.IE.FaCF  (IFMAX) 


are  used  to  test  the  number  of  components  and  print  the  first  page  of  formatted 
output.  The  block  IF  statement  is  used  to  insure  that  the  number  of  components 
does  not  exceed  array  dimensions.  If  this  fatal  error  occurs,  the  program  will 
execute  the  ELSE  branch  of  the  block  IF.  Note  that  Program  QKPK  also  tests  and 
aborts  on  the  same  error.  The  first  WRITE  statement  is  used  to  print  the 
number  of  time  intervals  and  the  time  values  for  which  Pk's  and  vulnerable  areas 
will  be  computed.  This  is  followed  by  two  WRITE  statements  that  are  used  to 
print  the  reverse  flag  and  the  number  of  points  in  the  flux  distribution.  The 
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rest  of  Che  statements  are  used  to  print  the  flux  distribution  table.  The  DO 
loop  is  used  to  print  flux  array  values  with  corresponding  begin  times  and  end 
I  times.  The  final  WRITE  statement  is  used  to  print  the  final  line  of  the  flux 
table  indicating  that  the  last  flux  level  applies  to  all  times  greater  than 
the  last  end  time. 


The  statements 


»«ITE  (luuri)  AZ, El. NOCOMP 
kxITE  (lUOTl)  (ICUMPtn.IFUtD.ITCD.lUd), 1  =  1, NOCOMP), IBYRS, 
S  IEM»X,(FTIM(l).FXCM(n,I  =  l,IFM*X) 

10  CONTINUE 

PEAO  (IIN)  ((MUl,J),I  =  l,l0),BJ(J),n(J),J  =  t,20U) 
orite  (louri)  ((S’l(l,J).l  =  l,lO),H5{J),luJ),J^|,^oo) 

IF  (IKEUO)  .NE.  499<))  GO  TO  lU 


tn 


are  used  to  save  a  copy  of  the  binary  input  data  from  Program  QKPK  on  the  first 
binary  output  file.  The  first  two  binary  WRITE  statements  are  used  to  write 
the  data  from  the  first  two  records  of  binary  input.  The  statements  following 
Statement  10  are  used  to  iteratively  read  and  then  write  the  binary  records. 

I  The  IF  statement  is  used  to  test  for  the  end  of  view  flag  and  to  continue  to 
loop  until  the  last  binary  record  has  been  echoed.  Note  that  data  written 
on  device  lOUTl  are  in  the  identical  order  as  data  on  device  IIN. 

The  statements 

£N0  F1V.E  lOUtl 
BEkINO  IIN 

GRID  *  GRID  •  GRID  /  1««. 

are  used  to  place  an  end  of  file  mark  on  the  first  binary  output  file,  to 
rewind  the  binary  input  file,  and  to  convert  the  variable  GRID  from  a  length 
to  an  area  expressed  in  square  feet. 

The  statements 

MEAO  (IIN) 

HEAD  (IIN) 

MAXTIM  *  NTIMt  *  2 

are  used  to  skip  Che  first  two  records  of  the  binary  input  file  and  compute  the 
variable  MAXTIM,  which  is  a  dimension  size  for  the  SHW  array.  By  using  the  two 
binary  READ  statements  to  pass  two  records,  the  binary  input  file  is  now  at  the 
start  of  the  shot  line  penetration  times  computed  by  Program  QKPK. 

The  statements 

.  100  CONTINUE  - 

I  READ  (IIN)  ((Rl(I,J),I=I,lO),RJ(J),Ii(j),jri,jou) 

00  110  J  =  l.EVO 

IF  (II (J)  .EG.  9999)  GU  TO  SOOO 

are  the  starting  point  for  the  time  file  processing  loop.  The  binary  READ  is 
I  used  to  read  and  store  one  binary  record  which  fills  three  arrays.  The  DO 
statement  is  used  to  initiate  a  DO  loop  which  iterates  200  times  to  process 
I  each  set  of  array  elements.  The  IF  statement  is  used  to  branch  out  of  the 
time  file  processing  loop  when  an  end  of  view  flag  is  detected.  Since  the 
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end  of  the  DO  loop  is  followed  by  the  statement  GO  TO  100,  Statement  100  is 
used  as  a  return  point  so  that  another  record  of  binary  input  may  be  read  and 
processed. 

The  statements 


IF  (ISI  .LE.  0)  IHEN 

'  noIL  =  ITOIL  *  1 

NENC  *  IKJ) 

NShT  s  NShI  *  J 
Shod.NSHT)  s  Rl  (l,J) 

SHk(2,NShT )  I  HI (2, J) 

IF  (NEf4C  .NE.  0)  1HEN 
1ST  X  nSHT 
NUM  £  0 

are  used  to  store  the  initial  data  for  each  new  shot  line  on  the  viewing  plane. 
The  block  IF  statement  is  used  to  test  the  shot  line  index,  1ST.  The  index  1ST 
equals  0  when  a  new  shot  line  is  being  defined.  When  the  IF  statement  detects 
a  new  shot  line,  the  preceding  statements  are  used.  The  variable  ITOTL,  which 
counts  the  number  of  shot  lines  in  the  view,  is  incremented  by  using  the  first 
assignment  statement.  The  number  of  encounters  on  the  shot  line  is  assigned  to 
NENC  and  the  subscript  NSHT  is  incremented  by  using  the  next  two  assignment 
statements.  The  first  two  rows  of  the  array  SHW  are  used  to  store  shot  line 
coordinates  on  the  viewing  plane.  The  second  block  IF  statement  checks  if  there 
is  at  least  o^e  critical  encounter  on  the  shot  line.  If  so,  the  next  two  state¬ 
ments  are  executed  to  assign  the  shot  line  numbers  to  1ST  and  to  initialize  the 
subscript  NUM. 

The  statements 

ELSE 

OU  112  **«  X 

SM<*  ("IM.NSHT  )  X  -<», 

112  CONTINUE 

END  IF 

are  executed  only  when  a  shot  line  has  no  critical  encounters.  The  DO  loop  is 
used  to  fill  the  rest  of  the  SHW  array  with  the  value  -9.0,  designated  as  a 
flag  to  indicate  no  critical  encounters.  The  END  IF  statement  closes  the  block 
IF. 


The  statements 


ELSE 

NON  X  NUH  *  1 
00  114  K  X  1,10 

HxTIME (K.NUM)  X  K1(K,J) 
114  COMINUE 

PLSIMIM)  X  RJU) 

N«'<E(NUM)  X  IKJ) 


can  be  executed  only  when  processing  a  set jjfjiinar'y  "Input  data  that  contains 
penetration  times  for  an  enwjjater  flTiT,  not  the  start  of  a  new  shot  line). 
The  first  assignment '"Statement  is  used  to  increment  the  variable  NUM  and  the 
remaining  assignment  statements  are  used  to  store  the  eleven  penetration  times 
as  well  as  the  component  number  location  in  the  PKTIME,  PLS,  and  NAME  arrays, 
indexed  by  the  encounter  number  NUM. 
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The  next  statements 


IF  INU"  .Gt.  NtMC)  THtN 
i)(j  11  I  =  i.iu 
ISEUl )  s  0 

lis  CU^T1^UE 

UU  lid  I  :  l.NENC 
11  =  NFmEU) 

LL  3  irilll 

IF  (LL  .NE.  uj  ISttlLLI  s  1 
IF  (I  .NF.  NENC)  THEN 
i)U  11b  13  =  1*1.  NENC 

IF  (II  .Eu.  N*MC(I3))  GO  TU  118 
118  CONTINUE 

ENO  IF 

F*N£a(II)  s  PANEAdl)  ♦  1. 

118  continue 


are  executed  only  after  the  data  for  every  encounter  on  a  shot  line  have  been 
stored.  The  first  DO  loop  is  used  to  assign  zeros  to  the  system  encounter 
I  array  ISET.  This  is  followed  by  a  DO  loop  which  is  used  to  increment  the 
presented  area  array  PAREA  for  each  component  on  this  shot  line  and  to  assign 
a  one  to  the  ISET  array  for  every  system  represented  on  this  shot  line.  The 
I  first  two  assignment  statements  in  the  loop  are  used  to  assign  the  component 
I  location  to  II  and  the  system  number  to  LL.  The  logical  IF  statement  is  used 
to  allocate  a  one  to  the  ISET  array  if  the  encountered  component  is  in  a 
system.  The  last  assignment  statement  in  the  loop  is  used  to  increment  the 
PAREA  array  for  the  encountered  component.  The  block  IF  with  its  DO  loop  is 
used  to  insure  that  the  presented  area  for  a  component  is  incremented  only 
once  even  if  the  component  is  in  more  than  one  encounter  on  a  shot  line. 

The  statements 


00  114  I  s  1,10 

SAKEAdJ  s  EAKEAd)  ♦  ISETd) 

114  CONTINUE 

are  used  to  accumulate  the  number  of  shot  lines  that  encounter  each  system  into 
the  SAREA  array.  When  all  shot  lines  for  a  view  have  been  processed,  the  SAREA 
array  contains  the  number  of  shot  lines  that  have  an  encounter  with  a  component 
in  each  system. 

The  next  statements 

CALL  PENT 
isr  :  0 

are  used  to  invoke  Subroutine  PENT  and  reset  the  shot  line  index  1ST.  Sub¬ 
routine  PENT  is  used  to  perform  the  shot  line  penetration  computations  for 
component,  system,  and  total  shot  line  kill  probabilities  at  the  time  intervals 
specified  by  the  user's  formatted  input.  These  data  are  transferred  using  the 
common  storage  areas. 

The  statements 


01)  107  II  =  I.NTIME 

TVA(II)  3  TVAdl)  ♦  3MN(II*8,NSHT) 
107  CUNTINUE 
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are  used  to  store  the  cumulative  kill  probabilities  for  all  time  intervals. 

After  all  shot  lines  have  been  processed,  the  array  TVA  contains  the  cumulative 
kill  probabilities  for  a  shot  line  at  each  time  interval  from  the  first  to  the 
NTIME  intervals.  These  data  are  used  later  to  compute  the  total  target  vul¬ 
nerable  area  at  each  time  interval  by  multiplying  the  kill  probability  by  the 
presented  area. 

The  next  statements 

END  IF 
END  IF 

IF  (nsmT  .eq.  ?oo)  Then 

11UU12)  ((SH«(lI,MM),n:i,ie),MM=l,£uO) 

NSHIsO 
END  IF 
110  CONTINUE 
GO  TO  100 

are  used  to  end  the  time  file  processing  loop.  The  first  END  IF  statement  closes 
the  IF  block  used  when  all  encounters  on  a  shot  line  have  been  processed.  The 
second  END  IF  closes  the  IF  block  that  tests  whether  a  new  shot  line  is  being 
defined.  The  block  IF  statement  is  used  to  execute  the  binary  WRITE  statement 
when  the  SHW  array  has  data  from  200  shot  lines.  The  execution  of  the  binary 
WRITE  statement  is  followed  by  an  assignment  statement  which  is  used  to  reset 
NSHT,  the  number  of  shot  lines  in  array  SHW,  to  zero.  If  the  array  is  not  full, 

I  the  block  IF  is  bypassed  and  execution  continues  at  Statement  110.  This  state¬ 
ment  is  used  to  end  the  time  file  processing  DO  loop.  After  the  DO  loop  has  been 
executed  for  each  of  the  200  elements  in  the  binary  input  arrays,  the  GO  TO 
statement  is  used  to  return  to  Statement  100  to  read  and  process  a  new  set  of 
binary  input. 

The  statements 
5000  continue 

NSMT  =  NShT  ♦  I 
00  5010  K  X  s.mxktim 
SHnIK.NSHTJ  X  -9990. 

5010  continue 

wMTE  (lour?)  ((SHwCll. MM), 11X1,12), MMX], 200) 

END  file  IUUT2 

are  executed  only  after  the  time  file  processing  loop  has  detected  the  end 
of  view  flag.  The  assignment  statement  and  DO  loop  are  used  to  assign  an 
end  of  view  flag  equal  to  -9999.0  in  the  next  row  of  the  SHW  array.  The  binary 
WRITE  statement  is  used  to  send  the  last  set  of  shot  line  Pk  data  to  the  binary 
file  on  device  I0UT2.  The  ENDFILE  statement  is  used  to  put  an  end  of  file  mark 
on  the  binary  output  file. 

The  statements 

mNITE  (Imm.ToOI)  pcv 
JBU  X  0 

FkV  X  pcv  •  O.OI 

are  used  to  begin  the  next  page  of  PEAKAY  printed  output.  Execution  of  the 
WRITE  statement  prints  the  heading  for  the  page  of  output  containing  the  time 
intervals  during  which  the  vulnerable  areas  reach  90  percent  of  the  presented 
area.  The  two  assignment  statements  are  used  to  initialize  the  counter  JQQ  and 
to  convert  the  required  percent  of  vulnerable  area  PCV  to  decimal  form.  (The 
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value  of  90  percent  for  the  variable  PCV  is  assigned  in  a  DATA  statement.  If 
another  percentage  is  desired,  a  change  of  value  in  the  DATA  statement  is  the 
only  action  required) . 


The  next  statements 


00  HOOC  MCI  3  l.NOCOHP 

IF  (IFGCMai  .ME.  0)  IMEN 

IF(PMM(3,MQ)  .lE.  (I.)  THEN 

jua  3  jao  *  1 

PKNK(JUb)  3  ICOMPCMO) 

END  IF 


are  used  to  begin  a  loop  which  determines  the  time  interval  during  which  each 
component’s  vulnerable  area  reaches  90  percent  of  its  presented  area.  The  DO 
statement  is  used  to  initiate  the  loop  which  iterates  for  every  component. 

The  first  block  IF  statement  is  used  to  exclude  noncritical  components  from 
this  summary  by  passing  control  to  the  end  of  the  loop  if  the  component's 
criticality  flag  is  not  set.  The  second  block  IF  statement  is  used  to  deter¬ 
mine  the  components  which  have  a  zero  probability  of  kill  by  testing  the  third 
row  of  the  PRNT  array.  The  statements  in  the  IF  block  are  used  to  count  and 
save  the  component  numbers  for  components  which  have  a  zero  probability  of  kill. 
The  variable  JQQ  is  used  to  count  these  components,  and  their  component  numbers 
are  saved  in  array  PKNK. 

The  statements 


IF  (p*ke*(no)  .gt.  0.)  Then 

DO  6U1U  3  3  t.MTIME 

IF  (C0MP4V (M0,3 ) /P3PEAIM0)  .6E.  F»v)  THEN 
IF  (3  .GT.  n  then 

Ib  3  riMESiH*!) 

ELbE 

Ib  3  0 
ENu  IF 

«HITE  lUH./OuE)  IC0WP(P'I),(P«NT(JJ,HU),JJ3W<*).TB, 

IIMESIKJ 
GO  TO  ouOU 
€f.O  IF 
CO  4T  INUt 
CNO  IF 

HMIIE  (I*«h,7«U2)  ICOHPt«0)  ,  (PHNT  I  JJ.HU)  ,  JJ  =  1  ,») 

END  IF 
CONTINUE 

are  used  to  select  the  time  interval  for  which  each  component's  vulnerable 
area  reaches  90  percent  of  its  presented  area  and  to  print  that  information. 

The  first  IF  block  is  used  to  bypass  components  with  no  presented  area;  i.e., 
no  shot  line  has  an  encounter  with  the  component.  For  components  with  a 
presented  area,  the  DO  loop  is  used  to  test  the  component  vulnerable  area 
at  each  time  interval.  The  next  IF  block  is  used  only  for  components  whose 
vulnerable  area  reaches  90  percent.  The  block  contains  another  IF  block  to 
determine  the  time  interval  during  which  the  vulnerable  area  reached  90  per¬ 
cent  of  the  presented  area.  The  WRITE  statement  prints  component  encounter 
information  contained  in  the  PRNT  array  as  well  as  the  time  interval  previou.'ly 
determined.  The  GO  TO  statement  then  branches  to  the  end  of  the  component 
loop.  The  END  IF  statement  following  Statement  6010  closes  the  IF  block  for 
components  having  a  presented  area.  The  following  WRITE  statement  is  executed 
for  components  whose  vulnerable  area  does  not  reach  90  percent  of  the  presented 
area  as  well  as  for  those  which  have  no  presented  area.  Statement  8000  is  used 


bOIO 

8000 
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to  end  the  DO  loop  executed  for  every  component. 

The  next  statements 

OU  306  J  =  t.NOCUMP 

PAOEttJ)  a  PAhEXJ)  •  GklQ 
00  3u0  K  s  I.KTlttE 

COhP»V(J,k)  :  CUPPavCJ.K)  *  grid 
300  continue 
305  CONTINUE 

use  two  nested  DO  loops  to  compute  component  presented  and  vulnerable  areas. 

The  presented  area,  A^,  is  computed  using  the  expression: 

(3-19) 


The  -vulnerable  area  is  computed  using  the  expression: 


(3-20) 


The  sum  of  shot  line  Pk's  was  computed  in  Subroutine  PENT  and  stored  in  the 
COMPAV  array.  The  outer  DO  loop  is  used  to  iterate  for  every  component  and 
the  inner  loop  is  used  to  iterate  for  every  time  interval. 

The  statements 

00  315  *  =  I.NTINE 

TV»(K)  a  TV»(K)  *  GHID 
TVNMIK)  s  TV*IH)  •  SOESUM 
00  3IU  J  a  1.1b 

PHULTU.K)  S  PMULTTJ.K)  •  GRID 
310  CONTINUE 

315  CONTINUE 

are  used  to  convert  the  total  target  and  system  kill  probabilities  to  vulner¬ 
able  areas.  The  outer  DO  loop  is  used  to  iterate  for  each  time  interval.  The 
first  assignment  statement  is  used  to  compute  the  total  vulnerable  area  as  the 
product  of  the  total  Pk  and  the  specified  grid  area.  The  second  assignment 
statement  is  used  to  compute  the  total  vulnerable  area  in  square  meters  and 
store  it  in  the  TV AM  array.  The  inner  DO  loop  is  used  to  iterate  for  each  of 
10  possible  systems.  The  last  assignment  statement  is  used  to  compute  the 
system  vulnerable  area  by  multiplying  the  system  Pk  and  the  grid  area  expressed 
in  square  feet. 

The  statements 

IF  (AVFlaG  .EU.  1)  THEN 

nRITE  (InH.lUbN)  (TIMESIUJ.FsI.NTImE) 

else 

■RITE  (InR.IOOT)  (TINESIM.FsI.NTInE) 

•  RITE^{I0UT3)  »Z,EL.IFN*».  If 

t  nOCOnP.NTINE, (TI*ES(I).1*1.NT1mE) 
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00  320  J  s  1, NOCOMP 

IF  afG(j)  .«£.  0)  then 

mNITE  (ImO.IUVS)  1C0mP(J),PAREA(J),(CCihpav(J,K),Xs1,nTIME) 

NXITE  (I0ur31  ICOMP(J),plRE*(J)>(COMP*y(J.K).x:l,NTIHE) 

END  IF 
320  CONTINUE 

END  file  I0UT3 

TOIL  *  notL«GH10 

mRITE  (I«»,7u05)  TOTLfITOTL 

ftXIlE  (IxH.TOUb)  lTV«CK),K:l,NTIMt) 

are  used  to  write  the  third  page  of  PEAKAY  printed  output  and  the  third  binary 
file.  The  first  IF  block  is  used  to  print  the  page  heading  and  time  increments, 
depending  on  whether  true  component  vulnerabliities  (AVFLAG  =  1)  or  incremental 
component  vulnerabilities  (AVFLAG  =  0)  are  calculated.  The  first  binary  WRITE 
statement  is  used  to  write  the  attack  angles,  the  flux  table,  the  reverse  flag, 
the  number  of  components,  and  the  time  intervals  on  the  binary  output  file.  The 
DO  loop  is  used  to  print  the  component  number,  the  presented  area,  and  the 
vulnerable  area  at  each  time  increment  for  every  critical  component.  Two  WRITE 
I  statements  are  used  to  write  these  data  on  both  output  devices.  The  IF  block  is 
used  to  bypass  the  WRITE  statements  for  noncritical  components.  The  ENDFILE 
statement  is  used  to  write  an  end  of  file  after  the  third  binary  file.  The 
assignment  statement  is  used  to  compute  the  total  target  presented  area  as  the 
product  of  the  total  number  of  shot  lines  and  the  grid  size.  The  last  two 
formatted  WRITE  statements  are  used  to  print  the  total  presented  area,  the 
total  number  of  shot  lines,  and  the  total  target  vulnerable  area  at  each  time 
increment. 

The  next  statements 

xNITE  (IxH.lgOb)  (T1MESih),ksi,NTImE) 

00  32S  X  3  1,14 

S«REX(X)  z  S«PEX(K)  •  GRID 

"BITE  (lOUTa)  SAPEA(K),k,(PMULT(K,J},Js|,NTIME) 
pRITE  (lAH,l40S)  K.SAKCA(K),(PMULT(K,J),JS|,NTIME) 

323  continue 

are  used  to  start  the  fourth  binary  output  file  and  to  print  the  fourth  page  of 
PEAKAY  formatted  output.  The  first  WRITE  statement  is  used  to  print  the  heading 
and  time  increments  for  the  new  page  of  formatted  output.  The  DO  loop  is 
executed  for  each  of  ten  possible  systems.  The  assignment  statement  is  used 
to  compute  the  system  presented  area  by  multiplying  the  number  of  shot  lines  by 
the  grid  area.  This  is  followed  by  two  WRITE  statements  which  write  the  system 
number,  system  presented  area,  and  the  system  vulnerable  area  for  each  time 
increment  on  both  output  devices.  If  a  system  number  is  not  used  in  the  target 
model,  the  system  number  is  printed  with  0.0  values  for  the  presented  and 
vulnerable  areas.  It  should  be  noted  that  a  multiply  vulnerable  component  does 
not  contribute  to  any  system  vulnerable  area. 

Execution  of  the  binary  WRITE  statement 

xRITE  (IOUTm)  jno, (FKNK (NCN) ,NCN3| . JUU] 

records  the  component  number  of  any  component  with  a  kill  probability  equal  to 
zero  on  the  fourth  binary  output  file. 

The  next  group  of  statements 
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UO  360  J  :  l.NdCUMP  • 

PAKEHJ)  s  »'iKfc»(j)  .  SufSUM 
00  33b  A  : 

AV  (J  ,K  )  s  CUMHAVlJfKJ  •  SUf  SUM 
350  C0<1INut 
360  CbnIIMiE 

If  (AVfUAG  .Eu.  1)  then 

WHITE  (IwH.IUUbl  (IlHES(K),K£),uiinE) 

EUSt 

WHITE  (IwH.luill  ( 1 IMES (K ) ,K= I , dt IM£) 

END  IF 

00  3T0  J  :  l.NOCUMH 
IF  (IFG(J)  .HE.  0) 

3T0*  CONTINUE^  tlwH.lUUS)  ICOMH ( J) ,P*HEA ( J ) , (tOMHAb [J , K ) , KS 1 , N r IME ) 

totl  =  toil  •  SUFSQM 

WHITE  (IwH.TbbT)  TOTl.ITOTl 

WRITE  (IWN.TbUB)  (TbAH(w),K£|,NriHE) 


is  used  to  print  component  presented  area  and  vulnerable  area  table  values 
expressed  in  square  meters.  The  first  two  nested  DO  loops  are  used  to  convert 
the  presented  areas  and  the  vulnerable  areas  from  square  feet  to  square  meters 
for  every  component  and  every  time  increment.  The  IF  block  prints  the  page 
heading  and  time  increments,  depending  on  whether  true  component  vulnerabilities 
(AVFLAG  =  1)  or  incremental  component  vulnerabilities  (AVFLAG  =  0)  are  calcu¬ 
lated.  The  second  DO  loop  is  used  to  print  the  presented  area  and  vulnerable 
area  tables  for  all  critical  components.  Noncritical  components  are  excluded 
from  the  table  by  using  the  IF  statement  inside  the  loop.  The  last  three  state¬ 
ments  are  used  to  convert  the  total  presented  area  to  square  meters  and  to  print 
the  total  target  vulnerable  areas. 

Then  the  statements 

WHITE  (iHH.luuR)  (TImeS(K),asI,NTJME) 

00  400  K  £  I,  lb 

SAKEAU)  :  SAREA(K)  •  SQFSUM 
00  380  J  r  l,NTIME 

PMULTIK.J)  =  PMULTIK.J)  •  SOFSOH 

380  continue 

"HITE  (lOUIA)  SAREA (K ) ,K, (PMULT (A , J) , Jsl .NTIME ) 
white  (lwH.IbU5)  8.6AHEA(K), (PnULTIK.Jl.Jsl.NTIME) 

800  CONTINUE 

are  used  to  form  two  nested  DO  loops  used  to  print  the  system  presented  area 
and  vulnerable  area  tables  after  converting  all  values  to  square  meters.  The 
outer  DO  loop  is  used  to  iterate  for  each  of  the  ten  possible  systems.  After 
the  system  presented  area  is  converted,  the  inner  loop  is  used  to  convert  the 
system  vulnerable  areas  at  each  time  increment.  The  last  two  I'/RITE  statements 
each  contain  an  implied  DO  loop,  and  are  used  to  write  the  system  number, 
presented  area,  and  vulnerable  area  at  each  time  increment.  Statement  400  is 
used  to  end  the  system  DO  loop.  These  statements  are  used  to  write  a  record 
on  each  output  device  for  the  10  system  numbers.  If  a  system  number  is  not 
used  in  the  target  model,  a  record  is  printed  with  zeros  for  the  presented 
and  vulnerable  areas. 

The  statements 


WHITE  (IwH.TulU 
00  330  J  £  I.NUCUMP 

IF  ttlFGIJ)  .NE.  0)  .AND.  (PAHEAIJ)  .LE.  0.)) 
»  WRITE  (Iwh.TuIEJ  ICumh(J) 
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330  continue 


are  used  to  print  the  seventh  page  of  PEAKAY  formatted  output  which  consists  of 
a  list  of  critical  components  whose  presented  areas  equal  zero.  The  first 
WRITE  statement  is  used  to  print  the  page  heading.  The  DO  loop  is  used  to 
iterate  for  every  component.  The  IF  statement  is  used  to  print  the  component 
number  for  critical  components  with  zero  presented  area.  Ocher  components  are 
bypassed. 


The  next  set  of  statements 

■RITE  (Ink. 7013) 

00  340  J  4  l.NOCOHp 

IF  ((IFG(J)  .NE.  0)  .»Nli.  .lE.  0.))  THEN 

iSQF  a  P*ME4(J)/SUFSUM 

nNITE  (InP.lOlO)  ICUMP(Ji,4SUF,P*HE4(J) 

END  IF 
340  CONTINUE 


is  used  to  print  the  last  page  of  formatted  output,  a  list  of  critical 
I  components  with  zero  vulnerable  area.  The  first  WRITE  statement  is  used  to 
print  the  page  heading.  The  DO  statement  is  used  to  initiate  a  loop  to  check 
I  every  component.  The  IF  block  checks  for  critical  components  whose  vulnerable 
I  area  is  zero.  For  those  components,  the  presented  area  is  converted  back  to 
square  feet  by  executing  the  assignment  statement.  The  last  WRITE  statement 
is  used  to  print  the  component  number,  and  the  presented  area  expressed  in 
both  square  feet  and  square  meters  for  any  component  with  zero  vulnerable  area. 

The  statement 


unite  (I0UT4)  (TV*(I),Tv»N(I),I»l,NTlHe) 


is  used  to  write  the  total  target  vulnerable  areas  in  square  feet  and  square 
meters  at  each  time  increment  on  the  last  binary  output  record. 


The  statements 

I  ELSE 

I  hMITE  (IWR,7U14) 

'  END  IF 

STUP 

are  the  final  executable  statements  in  the  program.  The  ELSE  branch  of  the 
block  IF  is  executed  only  if  the  number  of  components  is  too  large  for  the 
array  dimensions.  The  write  statement  is  used  to  print  a  fatal  error  message 
on  the  formatted  output  file,  and  the  STOP  statement  is  used  to  halt  program 
execution.  Program  QKPK  tests  and  aborts  on  this  same  error. 

The  last  group  of  statements 


4  F0NH4T  ('  NTIME«',I5,'  STEPS'/IOX, *  TINE  STEPS  4R£ : ’ , 1  OF  I  0 . 3) 

5  F0NM4T  IHvREx'.FS.O) 

SOO  F0KM4T  ('  NUMBER  UF  POINTS  IN  FLUX  DISTRIBUTION  =',15/ 

1  '  BESIN  tlME',5X, 'END  I IME'.TX, 'FLUX') 

StO  F0MH4T  (lx,FI0.2,3X,FkU.a,]i,FI0.2) 

1001  F0NM4T  (lOFa.Z) 

1002  FONMXT  t5(3F6. 2,2X1) 

1003  F0HM4T  (215) 
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IOC*  FOXHtT  t*I  PMESCNT^U  *MI  ThUE  CUXHONEM  vulEHABLE  <REES  *. 

*  ’{Su.  FEtl)  PER  Tl^E  increment •//•  tlME  INCREMtH I S ' , , 1  OF 1 U.E/ ) 

1005  FOxRAt  (15.F l0.5.5>ituF 1U.5) 

lOCb  FLWHAT  (’)  r-wtBF.NTEU  AREA  ANI'  TWUE  CU>'I‘UNEM  VULEmABLE  AHEAS 
»  '(SW.  >*EtE«b)  REK  TIRE  INCmEMENT  ' // '  HKE  IrtCxEMEMS  ' ,  , 

S  IIIFI0.2/) 

1007  FOkmaI  ('I  RXFSENTEO  AREA  ANO  1^CHE••E^I*L  COmRONENT  VULEMABLE  *> 
t  'aSEES  (SO.  FEET)  per  1i»E  INCREKENf//*  TIME  TNCmEMENTS'.AA, 

$  luFlu.2/) 

lOOB  format  (‘1  RhESENTeU  are*  ENu  SrsTEM  VuLEHEBLE  EwEES  ISU.  FEET) 

S  'RER  TiMt  increment*//'  time  ItiCREM£i.TS',««,»Of  JO.2/) 

1009  formet  Cl  Presented  eree  anu  ststeh  vulekable  areas  ($u.  meters)* 
s  '  P£B  TIME  increment*//*  time  INCREMENTS  * .«X, 1  OF  1 U.E/) 

1010  FORMAT  (1>,IE,<«>,RE1E.5) 

1011  format  (*1  PRESENTEO  area  ANO  INCREMENTAL  COMPONENT  VULEREBLE 

S  *ehELS  (SO.  MEIERS)  PER  TIME  INCREMENT*//*  TIME  INCREMENT S *,«« , 

S  luFlO.a/) 

7001  format  Cl  *.5X,  *CUMP.  NO  T-COORO.  2>COOftO.  MAX.  PK  *, 

S  *  TIME*. Sx, 'TIME  INTERVAL  DURING  mhICH  VULEMEBLE  AREA  REACHES*. 

S  FE.O. *X*/febX. *0F  The  PRESENTED  AREA*/) 

7002  FORMET  (!11.2X.2E12.«.F|l.E.F12.«.lOX.F12.a.*  T0*.F12.4,*  SECONDS* 

7005  formet  (*  TOTAL  TARGET  PRESENTED  EREE  (SU.  FEET)  s*.FIb.5. 

S  5X.*(*.Ib.*  TOTAL  SMOILlNES)*) 

TOOb  format  (*  TUTAL  target  VULNERABLE  AREA  (SO.  FEET)  PER  *, 

S  'TIME  INCREMENT*//(20X. IUFIO.5) ) 

TOOT  format  (*  TOTAL  TARGET  PRESENTED  AREA  (SO.  METERS)  c*.F|b.5. 

S  5X.*(*.lb.*  TuTAL  SMOTLINES)*) 

700a  format  (*  TOTAL  target  vulnerable  area  (SU.  METERS)  PER  *. 

S  'TIME  INC(<EHENT*//(20X.10F1P.5)) 

Toil  FORMAT  (*1  critical  COMPONENTS  HMOSE  PRESENTED  AREA  EOUALS  ZERO*. 

S*  AN£1*) 

7012  FORMATdX.tlO) 

7013  format  (*1  critical  COMPONENTS  WHOSE  VULNERABLE  AREA  EOUALS  ZERO*. 

s*  ARES*/*  cumpunent  Presented  area  (se.  feet  and  so.  meters)*) 

701«  format  (*  ANHAT  dimensions  ARE  TUO  SMALL... RRUGRAM  HALTING*) 

END 

is  used  to  define  the  input/output  formats  needed  for  program  execution 
This  group  of  statements  concludes  Program  PEAKAY. 
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SUBROUTINE  PENT 

This  subroutine  is  called  by  Program  PEAKAY  for  every  shot  line  on  the 
viewing  plane  and  is  used  to  compute  the  shot  line  penetration.  Two  nested 
DO  loops  are  used  to  proceed  along  the  shot  line  encounters  at  the  time 
intervals  specified  by  the  user  in  the  formatted  PEAKAY  input.  The  penetration 
times  from  the  PEAKAY  binary  input  file  are  used  to  compute  component  kill 
probabilities  at  each  time  interval.  The  component  Pk's  are  used  to  compute 
system  Pk's,  total  shot  line  Pk's,  and  cumulative  Pk's  for  each  component. 


The  statements 


s 

1 

s 

s 


SUMK  TINE  PENT 
INIE.cR  EVF1.AG 
QI'iENSION  PKCCIOUlfPXSdU) 

COMMUN  Ml  ( lu.200)  .I<](^UV),I  I  (201I).PXT1ME(  10,  lUO). 
Pxv*L(ia.l<'01,NCiK'il!i(;uU),PLS(IOO). 

LUC ( l«v) . IST.NShI ,LENC. ICOMK ( sou ) .Snm( 12,200) , 
NUCUMP,C(IHPtv  (SuU,  to)  ,GH1U,  I  tnES(  10)  ,NriME.  IT  (SUO) 
PMULT  (  10,  10)  .  lUlSoii)  , PANE*  (Sub) 

COMMON  /UNE/  IFG(SOO)  .PHM  (tt,SuO)  ,*VFL*C 
LUGICJtt  SNGSTS,HULSTS>  IISET 


are  used  to  declare  array  dimensions,  provide  for  transfer  of  data  into  and 
out  of  this  subroutine  via  coimnon  storage  areas,  and  to  declare  the  variable 
AVFLAG  to  be  integer  and  the  variables  SNGSYS,  MULSYS,  and  IXSET  to  be  logical. 


The  statements 


PMI  S  0. 

TSEG  a  0. 

NENU  a  t 
00  10  Ilal.lO 
PKSdl)  a  0. 

10  continue 


are  used  to  initialize  the  variables  PMX,  TBEG,  NEND,  and  the  PKS  array. 


The  next  statements 


00  bOOO  NTIMal.NTIME 
TENO  »  TIMESINTIM) 

NBE6  *  NCNO 

are  used  to  begin  the  time  penetration  loop.  This  DO  loop  is  executed  for 
every  time  interval  specified  in  the  user  card  input.  Execution  of  the 
first  assignment  statement  results  in  the  assignation  of  the  end  time  for 
this  interval  to  the  variable  TEND.  Execution  of  the  other  assignment 
statement  results  in  the  value  of  NBEG  being  set  equal  to  the  last  encounter 
number  that  was  not  breached  during  a  previous  time  interval. 


The  statements 

00  1000  II«NeEG,NENC 
NENO  «  II 
PK  s  0. 

PKC(tl)  I  0. 

SPx  *  0. 

I  S  LOCCIII 
U  P  IT(1) 
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are  used  to  start  a  DO  loop  which  iterates  for  each  encounter  remaining  on 
the  shot  line.  The  first  assignment  statement  is  used  to  transfer  the 
encounter  number  for  the  iteration  to  the  variable  NEND.  The  next  three 
assignment  statements  are  used  to  assign  initial  values  of  0.0  to  the 
variables  PK,  PKC(II),  and  SPK.  The  last  two  assignment  statements  are  used 
to  assign  the  component  number  location  to  I  and  the  system  number  to  L. 


The  next  two  statements 


SNSSYS  S  (L  .►‘E.  0) 
HULSVS  s  (1.  .HE.  0) 


.*M).  duel)  .EO.  0) 
.AND.  dud)  .EO.  1) 


are  used  to  assign  values  to  two  logical  variables.  The  singly  vulnerable 
system  flag,  SNGSTS,  is  assigned  a  value  of  TRUE  only  if  the  encountered 
component  is  in  a  system  and  its  multiply  vulnerable  flag,  lU,  is  0.  The 
multiply  vulnerable  system  flag,  MULSYS,  is  assigned  a  value  of  TRUE  only  if 
the  encountered  component  is  in  a  system  and  its  multiply  vulnerable  flag  is 
set  to  a  value  of  1. 


The  statements 


IF  (TEND  .LT.  FKTlMEd.d))  60  TO  l<>00 
IF  (PLSdl)  .GE.  PKTiMEd.U))  THEN 
IF  (PKVAtlNOPNTSd),!)  .EQ.  ).0)  THEN 

PFI  s  AMINl(PFTIME(NOPNTSd),lI),PUSdI)) 
ELSE 

PKl  *  PLSdl) 

end  if 

IF  UBEO  .LT.  PFl)  THEN 
III  *  1 

IXSET  «  .FALSE. 

20  CONTINUE 

IF  (d«  .LT.  NOPNTSd))  .AMO. 

S  (PFTlMEllAdl)  .LT.  TEND))  THEN 

II  :  lA  A  1 
ELSE 

IXSET  3  .TNUE. 

END  IF 

IF  (.NOT.  IISET)  60  TO  20 
PK2  *  PFTIME(l«-l,II) 

PF3  *  AHINl (TENO.PFI) 

IF  ((Pr3  .Lt.  PFTlHE(N0PNrSd),II)) 

S  (PF2  .NE.  PATlME(l>,in))  then 

P«  z  (PF3  *  FAEJ  t  (PFTlntdl.II) 

S  (PAVALIIlfl)  -  PlVALdl-I.D)  ♦ 

ELSE 

►  A  r  P«  VAL  d«  •  I  ) 

END  IF 


.AND. 

-  PA2)  • 
PAVALdX-1,1) 


are  used  to  compute  the  component  probability  of  kill  for  one  encounter.  The 
first  IF  statement  is  used  to  branch  out  of  the  encounter  loop  to  Statement 
1900  if  the  end  time  for  this  interval  is  less  than  the  minimum  time  required 
for  a  nonzero  Pk.  The  first  block  IF  ascertains  whether  the  time  for  complete 
penetration  is  less  than  the  minimum  time  for  a  nonzero  Pk.  If  so,  execution 
falls  through  to  the  end  of  the  encounter  loop.  This  event  indicates  that  the 
component  is  completely  perforated  with  a  zero  Pk,  so  the  computation  proceeds 
with  the  next  encounter.  The  next  block  IF  determines  whether  it  is  possible 
for  the  current  component  to  be  killed  with  a  single  shot  line.  If  so,  the 
maximum  possible  penetration  time  for  this  encounter,  PKl,  is  the  lesser  of 
the  times  required  to  achieve  a  Pk  of  1.0  and  the  time  to  achieve  perforation 
of  the  component.  If  not,  the  maximum  penetration  time  is  the  perforation 
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time.  The  third  block  IF  statement  checks  whether  the  maximum  penetration 
time  occurred  during  a  previous  time  interval.  If  so,  execution  falls 
through  to  the  end  of  the  encounter  loop.  If  not,  the  progra'^  initializes 
an  index  IX  and  a  stopping  condition  flag  IXSET  for  a  "DO  WHILE"  type  loop. 

The  loop,  beginning  with  Statement  20  and  ending  with  the  conditional  GO  TO, 
determines  the  minimum  time  associated  with  any  of  the  entered  Pk  values  that 
is  greater  than  or  equal  to  the  current  time  interval.  The  contained  block 
IF  statement  is  used  to  increment  the  Pk  time  index  until  this  value  is 
achieved  or  until  the  last  Pk  time  value  is  exceeded.  The  variable  PK2,  the 
minimum  penetration  time  for  this  time  interval,  is  set  to  the  time  associated 
with  the  last  Pk  value  before  the  end  of  the  time  interval.  PK3,  the  maximum 
penetration  time  for  this  time  interval,  is  the  lesser  of  the  end  of  the  time 
interval  and  the  maximum  possible  penetration  time.  The  final  block  IF 
statement  is  used  to  compute  PK,  the  probability  ;pf  kill  for  the  encounter. 

If  the  maximum  penetration  time  for  the  interval  is  less  than  or  equal  to  the 
penetration  time  that  causes  the  highest  Pk  and  if  the  minimum  penetration 
time  is  not  equal  to  the  time  for  the  next  Pk  value.  PK  is  interpolated  linearly 
between  the  nearest  input  Pk  values.  Mathematically  this  is  expressed  as: 


If  the  conditions  of  the  block  IF  are  not  met,  the  ELSE  branch  is  executed, 
implying  that  either  the  component  has  been  penetrated  beyond  the  depth  that 
causes  its  greatest  Pk  or  that  upon  penetration  to  a  certain  depth,  the  Pk 
is  discontinuous.  In  both  cases,  the  Pk  associated  with  the  time  found  in 
the  "DO  WHILE"  loop. is  the  desired  Pk,  so  PK  is  set  to  this  value. 


The  statements 


SHU  S  PK 

tF  (KVFLKe  .EU,  OJ  Pk  s  PK  •  11. 0  -  PHI) 

PKCdl)  *  PK 
IF  (II  .NE,  1)  ihEN 
00  172  LP  s 

If  (LOC(LM)  .to.  I)  Then 

PK  S  PK  •  (1,0  •  PKCILW)) 

PKCdU  =  PkCILM)  ♦  PK 
CO  TO  175 
ENO  IF 

continue 

ENO  If 

•T5  CONTINUE 

are  used  to  compute  the  total  shot  line  kill  probability  for  the  components  by 
including  the  PK  from  any  previous  encounters.  The  first  assignment  statement 
is  used  to  store  the  encounter  PK  value  in  the  variable  SPK,  which  is  used  for 
a  system  Pk  computation.  The  IF  statement  is  used  to  adjust  the  value  of  PK 
to  obtain  component  incremental  values  if  the  area  of  vulnerability  flag 
AVFLAG  is  reset;  otherwise  true  values  for  component  areas  of  vulnerability 
are  obtained.  The  next  statement  is  used  to  store  the  encounter  Pk  value  in 
the  PKC  array.  The  succeeding  block  IF  statement  tests  if  this  is  the  first 
shot  line  encounter.  If  so,  program  execution  falls  through  to  Statement  175. 
If  this  is  not  the  first  shot  line  encounter,  the  DO  loop  is  used  to  search 
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for  the  most  recent  shot  line  encounter  for  the  same  component.  If  no 
I  previous  encounter  involved  the  same  component,  the  block  IF  statement  falls 
through  to  the  end  of  the  DO  loop  on  every  iteration  and  the  value  of  PKC(II) 
remains  unchanged.  If  a  previous  encounter  has  the  same  component,  the 
assignment  statements  are  used  to  compute  the  probability  of  kill  on  the  Ilth 
encounter  using; 


(3-25) 


The  probability  of  this  exclusive  event  is  then  added  to  the  previous  shot 
line  Pk  and  is  stored  in  PKC(II).  The  GO  TO  statement  is  then  used  to  branch 
out  of  the  loop. 

The  next  statement 

IF  (SNCSYSI  SH*  =  SPF  •  Cl.O  -  PKS(L)) 


is  a  logical  IF  statement  used  to  adjust  the  system  Pk  value  if  the  component 
is  singly  vulnerable.  In  this  case,  the  system  kill  probability  is  the 
product  of  the  encounter  kill  probability  SPK,  and  the  probability  of  system 
survival  for  all  previous  encounters  {l-PKS(L)). 


The  statements 


IF  (PKCdl)  .SI.  PHUKJ.l))  THEN 
PhM(1,I)  =  SHhCI.IST) 

PPNTCE.I)  :  Shn(2,IST) 

PNNT(3,n  I  PKC(II) 

PNNKv.I)  s  PK3 

ELSE  IF  i(P>(rnn  .es.  phnh3,i))  .»no. 

S  (PHNT(«,I)  .BT.  PK3))  THEN 

PNNI (1 , 1 J  =  SH«(|, 1ST) 

PHNT(2,1)  s  Smh(2.IST) 

PNNTIn.I)  :  pk3 
ENt)  IF 


are  used  to  store  the  maximum  Pk  encounter  data  for  a  component  in  the  PRNT 
array.  The  block  IF  statement  is  used  to  compare  the  encounter  Pk  with  the 
value  already  stored  in  the  print  array  for  the  component.  If  the  encounter 
Pk  is  greater  than  the  value  in  the  PRNT  array,  assignment  statements  store 
the  shot  line  coordinates,  the  component  kill  probability,  and  the  penetration 
time  in  the  PRNT  array.  If  the  encounter  Pk  is  not  greater  than  the  value  in 
the  PRNT  array,  the  ELSE  IF  statement  checks  whether  the  encounter  Pk  is  equal 
to  the  value  in  the  PRNT  array  and  whether  the  current  penetration  time  is 
less  than  that  stored  in  the  PRNT  array.  If  these  conditions  are  met,  the 
shot  line  coordinates  and  the  penetration  time  are  saved  in  the  PRNT  array. 

The  END  IF  statement  closes  the  block  IF. 


This  statement 

IF  (TEND  .LT.  PkI)  6li  TO  1<»00 
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is  used  to  branch  out  of  the  encounter  loop  If  the  maximum  Pk  encounter  time, 
PKl ,  exceeds  the  interval  end  time.  If  there  is  time  remaining  in  the  time 
interval  after  this  encounter,  the  program  continues  with  the  next  statements. 

These  statements 


IF  (SNGStS)  PKSd.)  s  PKS(L)  *  SPK 
TbEG  3  PK3 

DO  500  Nil  s  NTIH.NTIME 

IF  (SNGSTS)  PMULKL.NTI)  =  PMUL  T  (U,  NT  1 1  ♦  SPK 
COMPAVd.NTl)  =  CONPlVd.NTI)  ♦  PK 
500  CONTINUE 

are  used  to  accumulate  the  system  and  component  Pk’s  from  this  encounter,  and 
to  specify  the  start  time.  The  first  logical  IF  statement  is  used  to  sum  the 
system  Pk  into  the  PKS  array  for  singly  vulnerable  components  only.  The 
assignment  statement  is  used  to  reassign  the  start  time  to  equal  the  encounter 
end  time.  The  DO  loop  is  used  to  add  the  system  Pk  to  the  PMULT  array,  and  the 
steps  are  inside  of  the  encounter  loop,  the  component  Pk  accumulation  is 
expressed  mathematically  as: 


(3-26) 


The  logical  IF  statement  inside  the  loop  is  used  to  allow  only  singly 
vulnerable  system  kill  probabilities  to  be  added  to  the  PMULT  array. 

The  statements 


IF  d.NOT.  MULsrs)  .*N0.  (avflkg  .eo.  u)  then 

3  PMX  ♦  Pn  •  (t*0  •  PMX) 

else  if  d.NOT.  MULSrS)  .AND.  (AVFLAG  .EQ.  0))  THEN 
PM«  s  PM»  «  PK 
ENO  IF 
END  IF 
ENO  IF 
1000  CONTINUE 

are  used  to  compute  the  shot  line  Pk  and  to  end  the  encounter  DO  loop.  The 
block  IF  is  used  to  compute  the  shot  line  kill  probability,  excluding 
encounters  with  multiply  vulnerable  components.  The  shot  line  kill  probability 
consists  of  the  sum  of  the  probabilities  of  exclusive  events.  If  AVFLAG  is 
set,  the  probability  that  the  current  encounter  causes  a  kill  is  calculated 
using  PK.  If  AVFLAG  is  reset,  PK  already  equals  the  probability  of  kill  for 
this  encounter  only.  The  three  END  IF  statements  end  this  block  IF,  the  block 
IF  where  the  beginning  interval  time  is  less  than  the  maximum  penetration 
time,  and  the  block  IF  where  the  perforation  time  is  at  least  equal  to  the 
time  required  for  a  nonzero  Pk.  Statement  1000  is  used  to  end  the  encounter 
DO  loop.  This  loop  iterates  until  the  time  interval  is  completed  or  all 
components  on  the  shot  line  are  penetrated.  Two  IF  statements  inside  the 
loop  are  used  to  branch  to  Statement  1900  when  the  time  interval  is  completed. 
If  all  remaining  components  are  penetrated  during  the  time  interval,  the 
subroutine  continues  with  the  next  statements. 

The  statements 
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00  1500  NT]  s  NIIM.NTJME 
SHi>(NT1*£,1ST)  s  PMX 
1500  CONTISUE 
OETURN 

are  used  to  store  the  shot  line  Pk  for  the  remaining  time  intervals  and  to 
return  control  to  Program  PEAKAY.  This  is  the  end  point  of  Subroutine  PENT 
for  a  shot  line  which  is  able  to  penetrate  all  of  the  encountered  components 
within  the  specified  time  intervals.  The  DO  loop  is  used  to  store  the  shot 
line  Pk  values  in  array  SHW  beginning  with  the  element  for  the  current  time 
interval  NTIM  and  continuing  through  all  remaining  time  intervals. 

The  next  statements 

1900  CONTINUE 

IF  (.NOT.  MULSTS)  THEN 
IF  (*vflag  .to.  1)  Then 

SH»(NTI>*«a,lST)  s  HNI  «  PK  *  (l.u  .  PM>) 

ELSE 

SM*(nTIH«2, 1ST)  =  PM«  «  PK 
ENQ  IF 
ELSE 

SHk(NTIP«2,1S1 )  s  PM» 

END  IF 

IF  ISSfcSYS)  PHULUL  ,NT  IM)  =  PMULT  (L.NTIM)  ♦  SPK 
CUMPAV  (  1  ,M  IH)  :  CUMPAVd.NTIM)  *  PK 
boon  CUN1  INtlE 
HETUHN 
END 

are  executed  only  after  an  encounter  or  series  of  encounters  has  used  an  entire 
time  interval.  This  condition  is  detected  by  using  two  IF  statements  which 
I  invoke  a  branch  to  Statement  1900  from  inside  the  encounter  loop.  The  outer 
I  block  IF  is  used  to  store  the  shot  line  Pk  values  after  the  NTIM  time  interval 
in  the  SHW  array.  The  first  block  IF  statement  determines  if  the  component  is 
multiply  vulnerable.  If  not,  the  inner  block  IF  calculates  the  shot  line  kill 
probability,  taking  into  account  whether  the  probability  of  kill  for  one 
encounter  PK  is  a  true  value  or  an  incremental  value  (probability  of  kill  on 
one  encounter  and  survival  on  all  others) .  If  the  component  is  multiply 
1  vulnerable,  the  ELSE  branch  of  the  outer  block  IF  is  executed  and  the  shot 
line  kill  probability  is  unaffected  by  the  current  encounter.  The  branch  to 
Statement  1900  is  executed  before  updating  the  shot  line  kill  probability  PMX 
to  include  the  last  encounter.  Hence,  this  step  requires  an  assignment 
statement  and  an  IF  statement  to  store  the  Pk  values  from  the  last  encounter. 
The  logical  IF  statement  is  userj  to  add  the  system  Pk  value  to  the  PMULT  array 
if  the  encountered  component  is  singly  vulnerable.  The  last  assignment 
statement  is  used  to  accumulate  the  component  Pk  values  in  the  COMPAV  array. 
Statement  6000  is  used  to  end  the  time  penetration  loop.  If  all  time  intervals 
are  processed  without  complete  shot  line  penetration,  the  RETURN  statement  is 
used  to  return  control  to  Program  PEAKAY. 
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PROGRAM  PRERD 

This  program  should  be  used  before  Program  QKPK.  It  is  used  to  check  for 
possible  errors  in  the  input  cards.  The  output  from  this  program  includes  a 
table  of  the  component  information  arrays  with  flags  marking  possible  errors 
and  several  summaries  of  the  data  arragned  by  various  parameters.  All  output 
is  on  Logical  Unit  6,  the  line  printer.  Table  4-2  lists  the  data  checks  which 
are  made  in  this  program,  and  Table  4-3  lists  the  summaries  that  are  printed. 
Any  flagged  error  should  be  checked  and  corrected  by  the  user  since  this 
program  does  not  correct  errors  for  the  user. 


The  first  set  of  statements 

IMTEGER  PVNRw 

CPPXON  icoMP(5no),M*T(5oo>.iEi;<son),jiAHf5oo),i»N4(5on), 

»  ir'Tl (SOO),MOPM1SIS«n),nEPTMtlO,50n),PKV*L( lO.SOO), 

S  P><nF(S00),lU(S0P),Iir(S00) 

CnwMON  IK|\EL (SOOl.NOCnuP 

CPpmoN  /LIlNItS/  IWD.IRR 
cnp»0N  /SIZES/  ITC.IE* 

OI-E^iSION  IE(5«) 

04I»  TPL^K, ICHS.tAStFR  /•  '.IH*,**'/ 

OAT*  IRO.IXP  IS.bt 

0*tA  ITC. IEA.PANBR  /SOO.PS.IO/ 


I  is  used  to  declare  PKNBR  as  an  integer,  declare  array  dimensions,  allocate 
common  storage  areas,  and  initialize  the  flag  characters,  input/output  device 
numbers,  and  values  of  array  dimensions.  The  initialization  is  done  by  using 
DATA  statements. 


The  statements 

OPER  (  IOD.FIlEs*OI<Pi(OATA',«ECE"»*r)S'»"»'<»fCLseO,PAnr'YES') 

OPEN  (iPH.f  KEs'pREROOUI  •»rFCE*«='05'. carriage  C0N1RnL  =  ’E0R'IRAN’ ) 

are  used  to  connect  logical  units  to  the  input  and  output  files  and  to 
establish  the  connection  properties  between  each  unit/file  pair. 


The  next  two  statements 
call  REAOIN 

CALL  ESORT(ICnMP,N0CP«P.RAT,lFG.IlA«,IANA,TINIT,NnPNTS.nEPTH, 

S  PAVAL.ITC.PNNRR.lRiNEL.RRnE .lY.lU) 

are  used  to  execute  two  subroutines.  Subroutine  READIN  is  used  to  read  the 
same  input  cards  that  Program  QKPK  will  read  and  to  make  six  of  the  tests 
listed  in  Table  4-2.  Subroutine  FSORT  is  used  to  sort  the  component  infor¬ 
mation  arrays  into  ascending  order  by  component  number. 


The  statements 

kRITE  (IrR.IOO) 

PRITE  (TnR.IOll 

are  formatted  WRITE  statements  which  are  used  to  print  the  heading  for  the 
component  information  table  with  flagged  errors. 


The  next  statements 
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TABLE  4-2.  Data  Tests  Made  by  Program  PRERD 
Tested  in  Subroutine  READIN: 

1.  Number  of  components  exceeds  component  array  dimensions  (fatal  error). 

2.  Number  of  points  in  the  flux  distribution  exceeds  array  dimensions. 

3.  Flux  level  not  within  bounds  (0.00  to  60000.0). 

4.  Number  of  points  for  which  Pk  values  are  to  be  entered  exceeds  array 

dimensions  (fatal  error) . 

5.  Component  information  not  in  the  expected  format  (fatal  error) . 

6.  Number  of  shot  line  time  intervals  for  shot  line  breakdown  not  within 

array  dimensions  (fatal  error) . 

Tested  in  Program  PRERD: 

1 .  Duplicate  component  identification  numbers 

2.  Component  identification  number  outside  of  the  allowable  range 

(1  to  9999) 

3.  Component  criticality  flag  not  equal  to  0,  1,  2,  or  3 

4.  Material  identification  code  outside  of  the  allowable  range  (1  to  11) 

5.  Table  look-up  code  outside  of  the  allowable  range  (1  to  9) 

6.  Material  Identification  code  and  table  look-up  code  both  zero  or  both 

nonzero 

7.  Analysis  type  code  not  equal  to  0,  1,  or  2 

8.  Component  initial  operating  temperature  less  than  or  equal  to  0.0 

9.  Negative  influence  mode  thickness,  THINFL 

10.  Density  factor  RHOF  outside  of  the  allowable  range  (0.0  to  1.0) 

11.  Density  factor  and  influence  mode  thickness  both  equal  to  0.0  or  both 

greater  than  0.0 

12.  System  number  outside  of  the  allowable  range  (0  to  10) 

13.  Singly  vulnerable  flag  not  equal  to  0  or  1 

14.  System  number  equal  to  0  and  singly  vulnerable  flag  not  equal  to  0 

15.  For  depths  of  penetration  and  their  associated  probabilities  P(K/H) 

a.  Number  of  elements  in  DEPTH  and  PKVAL  arrays  outside  of 

allowable  range  (2  to  10) 

b.  Values  of  depth  elements  less  than  0.0  or  any  two  successive 

values  decreasing  in  magnitude 

c.  Values  of  probabilities  of  kill  outside  of  the  allowable  range 

(0.0  to  1.0)  and  any  two  successive  values  decreasing 

TABLE  4-3.  Component  Information  Summaries  From  Program  PRERD. 

1.  Component  data  with  any  of  the  possible  errors  from  Table  4-2  indicated 

2.  Critical  component  summary  and  count 

3.  Component  listing  and  count  by  material  code 

4 .  Component  listing  and  count  by  table  look-up  code 

5.  Component  listing  and  count  by  analysis  type 

6.  Component  listing  and  count  by  system  number 
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DO  no  j  *  ?,Noco*»p 

IF  (icowptj)  .EO.  ICOMPIJ-D)  THEN 
1C0«P(J)  =  -IABS(ICOHP(J)) 

ICO«P{J-l)  =  -UBSIICOMPIJ-IT) 

END  IF 

110  continue 

are  used  to  test  for  duplicate  component  identification  numbers.  After 
executing  Subroutine  FSORT,  the  component  numbers  in  array  ICOMP  are  in 
increasing  order,  so  this  test  can  be  done  by  looping  through  the  array  and 
comparing  only  the  adjacent  elements.  This  is  done  by  using  a  DO  loop  and  an 
IF  statement.  If  duplicate  component  numbers  are  found,  they  are  temporarily 
flagged  by  setting  them  to  negative  values. 

The  statements 

00  ION  J  =  l.NOCOHP 
00  120  I  :  1.14 
IE(I)  *  IRLNK 

120  continue 

are  used  to  initiate  a  loop  which  will  flag  errors  and  print  the  component 
information  arrays  for  every  component.  The  inner  DO  loop  in  the  above 
statements  is  used  to  assign  blank  characters  to  the  IE  array.  If  errors  are 
found,  this  array  is  assigned  a  flag  character  in  a  position  corresponding  to 
the  error  type  and  printed  with  the  component  information  arrays. 

The  statements 

IF  (ICOHPCJ)  .LF.  0)  lEfl)  s  ICHK 
ICONP(J)  s  IARS<IC0MP(J)) 

IF  (ICOMP(J)  .GT.  9090)  IFd)  =  ICHK 

are  used  to  finish  the  component  identification  number  tests  and  set  the  first 
flag  if  an  error  is  detected.  The  first  IF  statement  is  used  to  set  the  flag 
when  the  component  number  is  negative  or  0.  The  second  IF  statement  is  used  to 
set  the  flag  when  the  component  number  is  greater  than  9999.  Any  negative 
component  numbers  are  made  positive  by  using  the  lABS  function.  Since  a 
negative  number  is  also  an  indication  of  a  duplicate  component  number,  the 
first  flag  may  indicate  a  duplicate  component  identification  number  or  an 
identification  number  outside  of  the  1  to  9999  range. 

The  IF  statement 


IF  ((IFG(J)  .LT.  0)  .00.  (IFG(J)  .GT .  D)  IF(2)  *  ICHK 

is  used  to  set  the  second  flag  when  the  criticality  flag  is  not  equal  to  0, 
1,  2,  or  3. 


The  next  statements 


IF 

((ITARIJ) 

.EO.  0) 

•  *N0* 

((MAT(J) 

.LT. 

1  ) 

.00. 

(MAT(J>  .GT.  11))) 

U(3) 

s  ICHK 

IF 

( (HATIJ) 

.EO.  0)  . 

pAND, 

((ITAB(J) 

.LT. 

1 ) 

.00. 

(ITABU)  . 

GT.  0))) 

U<<|) 

t  ICHK 

IF 

((ItAH(J) 

.nf.  0) 

•  AND. 

(MATIJ)  . 

•  NE. 

0) ) 

THEN 

IF(J)  *  ICHK 
IFCO)  (  ICHK 
END  IF 


Change  1 


4-32 


JTCG/AS-79-V-008 


are  used  to  test  the  table  look-up  code  and  the  material  code  for  the  Jth 
component.  The  third  flag  is  set  if  the  table  look-up  code  is  0  and  the 
material  identification  code  is  less  than  1  or  greater  than  11,  The  fourth 
flag  is  set  if  the  material  identification  code  is  equal  to  0  and  the  table 
look-up  code  is  less  than  1  or  greater  than  9.  Both  flags  are  set  if  both 
ITAB(J)  and  MAT(J)  are  non-zero. 

The  next  IF  statement 

IF  .LT.  0)  .OR.  (I*NF(J)  .GT.  ?))  IE(S)  =  ICHK 

is  used  to  set  the  first  flag  if  the  analysis  type  code  is  not  equal  to  0,  1, 
or  2. 


The  statement 

IF  tTINlT(J)  .LE.  0.)  ie(6)  =  ICHK 

is  used  to  test  the  component's  initial  operating  temperature  and  to  set  the 
sixth  flag  if  it  is  less  than  or  equal  to  0.00. 

The  statements 


IF  (TMINFL(J)  ,LT.  0.)  lEIR)  s  ICHK 

IF  ((RHOF(J)  .LT.  O.J  .or.  (RHOF(J).  5T.  1.))  lEMO)  s  ICHK 
IF  (((THIMFLIJ)  .01.  O.I  .4N0.  (HHOF(J)  ,GT.  0.))  .OR. 

$  ((THINFL(J)  .LE.  O.J  .*NO.  («HOF(4J  .LE.  O.JJ)  THEN 
lEO)  s  ICHK 
lE(lO)  s  ICHK 
END  IF 


are  used  to  test  and  possibly  set  the  9th  and  10  flags.  The  first  IF  state¬ 
ment  is  used  to  set  the  9th  flag  if  the  influence  mode  thickness,  THINFL,  is 
less  than  0.00.  The  second  IF  statement  is  used  to  set  the  10th  flag  when  the 
density  factor,  RHOF,  is  less  than  0.0  or  greater  than  1.00.  Both  of  these 
flags  are  set  if  the  influence  thickness  and  the  density  factors  are  greater 
than  0.0,  or  if  they  are  both  less  than  or  equal  to  0.00. 

The  statements 


IF 

ctirlj) 

.LT. 

0) 

.OR, 

(UU) 

.07. 

;o)) 

lEdi) 

=  ICHK 

IF 

( ( IM( J)  . 

LT. 

0) 

.HR. 

(TiM.n 

.07, 

\ ) ) 

IF(1?) 

s  ICHK 

IF 

f (Tr(j) 

.t'J, 

0) 

flUCJ) 

.  0)) 

TMLN 

IF(II)  s  ICHK 


IF(l^)  s  ICHK 
F^n  IF 

are  used  to  set  the  11th  and  12th  flags  if  an  error  is  detected  in  the  system 
number  array  lY,  or  in  the  singly  vulnerable  flag  array  lU.  The  first  IF 
statement  is  used  to  set  the  11th  flag  when  the  system  number  is  less  than  0 
or  greater  than  10.  The  next  IF  statement  is  used  to  set  the  12th  flag  if 
the  singly  vulnerable  flag  is  not  equal  to  0  or  1 .  Both  flags  are  set  if  the 
system  number  is  0  and  the  singly  vulnerable  flag  is  not  equal  to  0. 

The  statements 
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IF  ({nOpnis(J)  .lt.  ?)  .tun.  (ijnpMTS(j)  ,gt.  loi)  IFcij)  s  jchk 

IF  (I)FPIh(1,J)  .lt.  0.0)  letlu)  =  ICIIK 
IF  ((PKVtId.J)  .lt.  0.0)  .OP.  (PKV«l(I>J)  .RT.  1.0)) 

»  IE(I5)  r  ICMK 
I»  =  ? 

1*5  COnTIWIIE 

IF  r  (REPTHI  IX.J)  .lt.  0)  .OR.  (OEPIHn«,J)  .lt.  r)FPTH(I*-l,J)) 
»  IFn2T?.I»)  :  ICMK 

IF  ((PkVALO.J)  .LI.  n.O)  .OR.  (PKVALII.J)  .GT.  l.O)  .OR. 

»  IPkv*l(I«.J)  .lt.  PKVAL(I»-1,J)))  IE(I3»2«IX)  r  ICHK 

IX  P  IX  A  1 

IF  ((IX  .LE.  10)  .ANO.  (IX  .LE.  NOPNTR(J)))  GO  Td  165 


are  used  to  set  the  13th  through  33rd  flags  if  an  error  is  detected  in  the 
establishing  of  the  laser  penetration  depths  and  the  Pk's  associated  with  them. 
The  first  IF  statement  is  used  to  set  the  13th  flag  when  the  number  of  points 
for  penetration  is  less  than  2  or  greater  than  10.  The  next  IF  statement  is 
used  to  set  the  14th  flag  when  the  minimum  penetration  for  a  non-zero  Pk  is 
negative.  The  third  IF  statement  is  used  to  set  the  15th  flag  if  the  Pk 
associated  with  the  first  penetration  depth  is  outside  of  the  range  0.0  to 
1.0.  An  index  for  the  number  of  points  entered  is  initialized  at  2.  A  loop 
is  then  entered  to  check  that  each  penetration  depth  is  non-negative  and  that 
each  successive  depth  is  no  less  than  the  previous.  If  an  error  is  detected, 
the  next  even  flag  is  set.  Likewise,  the  probability  associated  with  each 
depth  is  checked  to  insure  that  it  is  within  the  range  0.0  to  1.0  and  that  it 
is  no  less  than  the  previous  Pk.  If  an  error  is  detected,  the  next  odd 
numbered  flag  is  set.  The  index  is  incremented  and  the  program  branches  to 
Statement  165  if  NOPNTS  penetration  depths  and  Pk's  have  not  been  examined. 


The  next  statements 


on  170  I  *  i.sj 

IF  (IE(1)  .NE.  IBLNK)  Then 
IE(3<l)  A  lASTER 
GO  TO  180 
ENO  IF 
170  CONTINUE 


are  used  to  test  the  flag  array,  IE,  and  to  mark  the  line  with  an  asterisk  if 
It  contains  a  possible  error.  If  any  of  the  flags  from  the  previous  tests  have 
been  set,  the  assignment  statement  is  used  to  place  an  asterisk  character  in 
I  the  34th  array  position  and  the  next  GO  TO  statement  is  used  to  branch  out  of 
the  DO  loop  to  Statement  180.  If  none  of  the  flags  have  been  set,  the  DO  loop 

I  executes  for  33  iterations,  always  bypassing  the  assignment  statement  in  the 
block  IF. 

The  statements 

180  kRITE  (ImR,  IRO,  IPSTATaIOS)  IE(I3).IC(I«R(J),IE(I).IFG{J),IE(?), 

*  •■»I<J).IE(3),llAH(J),IE(lt),lANA(J),lE(5).TlF’lT(J),IE(*), 

»  THINFL  ( J) .  IF  (Rl.RMOf  (J),IF(10),Ir(J),IE(ll).Iii(J),IF(12), 

»  MOPNTSI J) / IE ( 13) , J. (DEpTmIk, J), IE ( 1 2t?«K ) . Pk vAL ( K . J ) , 

*  IE(13»2«K),K  A  1,NUP'<TS(J)) 

1*6  CONTINUE 

are  the  last  statements  in  the  test  loop,  which  is  executed  for  every  element 
in  the  component  information  arrays.  The  l^RITE  statement  is  used  to  print  the 
component  data  for  the  Jth  component  with  any  flags  that  may  have  been  set. 
After  reaching  Statement  199,  the  program  returns  to  the  beginning  of  the  DO 
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loop  where  the  flag  array,  IE,  is  reinitialized  and  the  tests  will  be  executed 
again  for  the  next  component.  This  is  repeated  until  all  components  have  been 
tested. 


The  statements 


mHITE  (Imp, 200) 
IhPITE  (Imp, 101) 
00  210  I  s  1,14 
lEll)  s  IBLNR 

210  continue 


begin  the  summary  portion  of  this  program.  The  WRITE  statements  are  used  to 
print  the  heading  for  the  critical  component  summary.  The  DO  loop  is  used  to 
reset  the  IE  array  so  that  all  characters  are  blank. 


The  next  statements 


on  235  I  s  1,3 
NTYPE  S  0 

00  220  J  *  l.NOCOHP 

IE  (lEOlJ)  .eo.  I)  THEN 
NTTPE  =  NTYPE  ♦  1 

oPITE  (l»P.190,I0STAT=ins)  IE(lJ),IC0MPtJ),IE(l),IFGtJ), 

*  IE(2)«HAI(J).I£(3).IIAB(J),ItCa>,r«N4(J),IEt5),TINtI(J), 

»  IE(»>)/THINFL(J),IE(9),PHOFU).IE(10),1Y(J),IE(I1),IUIJ), 

»  IE( 1?) .NOPNTSI J), IE(1 J). J. (OEPTHIK, J) , IE( 12*2»K ) , 

S  P'(VA|,(k,J),IE(13«2*k),k  =  l,N0PNTS(J)) 

ENO  IF 
220  CONTINUE 

HPITE  (Ii.P,230)  NTYPE. I 
2S5  continue 


are  used  to  assemble  and  print  the  critical  component  summary.  The  criticality 
flag  may  have  values  of  0,  1,  2,  or  3,  but  a  0  indicates  a  noncritical  com¬ 
ponent,  which  will  be  excluded  from  this  summary.  The  outer  DO  loop  is  used 
to  test  for  the  three  remaining  values.  The  variable  NTYPE  is  used  to  count 
the  number  of  each  type  of  critical  component,  and  is  initialized  to  0  at  the 
start  of  this  loop.  The  inner  DO  loop  is  used  to  cycle  through  the  criticality 
flag  array,  IFG,  for  every  component.  Whenever  the  criticality  flag  matches  I, 
the  outer  DO  loop  index,  NTYPE,  is  incremented  and  the  component  information 
arrays  are  printed  for  the  component.  When  the  inner  loop  is  completed,  the 
last  WRITE  statement  will  be  used  to  print  the  total  number  of  components  with 
the  criticality  flag  I. 

The  statements 


pPITE  (InR.SOO) 

*iJITE  (TnP.IOD 
0(1  330  I  S  t,  n 
f.TypE  X  n 

O'’  310  .1  i  I.NorriHR 

IF  .Ed.  n  THFn 

NTYP)  X  NTTPE  »  t 

«n1TF  (IaP.  Ho.tOSrxTxinsI  IE  «  l  3»  .  ICOhP(.I)  ,  IE  (  n  ,  I  Fr.(  J  ) , 
t  IF(2),  '*I(J).fE(3).IT4H(J),IK«),TANA(,n,IE('3),ri‘iIT(J), 

t  1F(M  ,  IhI«'FL(  J),  IF(9),PHnF  (  J),  IF(  in  )  ,  lY  (.1  )  ,  IE  (  I  I  )  ,  IlK  J)  > 

»  IE(  12)  ,'nPNl>s(  J  ),  IF  ( I  I),J,  (OEPIHtK,  J) ,  IE(  12»2«N  )  , 

S  PKv<L(K.JI.rE(13*2*K),K  X  I.NOMNTSIJ)) 

END  IF 
310  C'^YIIMIE 

.»ITF  (1.9,320)  NTYPE, I 
330  continue 
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are  used  to  assemble  and  write  the  component  listing  according  to  material 
types.  The  first  two  WRITE  statements  are  used  to  print  the  heading  for  this 
summary.  This  is  followed  by  two  nested  DO  loops.  The  outer  loop  is  used  to 
initialize  the  type  counter,  NTYPE,  and  loop  through  the  11  possible  material 
codes.  The  inner  loop  is  used  to  test  the  material  code  for  each  component 
and  if  it  is  type  I,  the  component  information  arrays  are  printed  for  the 
component.  The  final  WRITE  statement  is  used  to  print  the  total  number  of 
components,  NTYPE,  with  a  material  type  code  I.  Note  that  a  component  with  a 
material  code  equal  to  0  is  excluded  from  this  table. 


The  statements 


■RITE  (IrR.ROO) 
kRITE  (IkR.IOII 
Oft  *10  1  s  1.0 

ktyre  »  0 

Oft  ato  J  :  t.NnCOMP 

IF  <IT*(t(j)  .fa.  I)  then 
NTtfPf  X  nTYPE  ♦  1 

pRITE  (l»P,190,IOST»T  =  inS)  IE(n).ICOMPCJ),IECl),TFG(J). 

S  IE(2).M*T(J),ie(J),IT*rt(J),IE(a).l»N*(J).IE(5),TlNITtJ), 

>  IE(6),THINFL(Jt. tE(9).HHOF(J),]F(10).IY(J),IE( II 

1  If  ( 12)  .NOPNTSfJ  >,IE()l),J,<OEP1H(t<.J>.lE(12*2»i<), 

S  PKy*L(k,J).1E(11y2*K).K  :  I.NOPNTS(J)) 

ENO  IF 

*10  continue 

kRITE  (I»R,*20)  NTYPE. 1 
«J0  COMINJE 


are  used  to  assemble  and  print  a  component  summary  by  table  look-up  index. 

The  first  two  WRITE  statements  are  used  to  print  the  heading  for  this  summary 
This  is  followed  by  two  nested  DO  loops  which  are  used  to  test  each  component 
table  look-up  index  for  each  possible  value  and  to  print  the  component 
information  for  each  component  with  a  matching  idex.  This  method  was  also 
used  in  assembling  the  two  previous  summaries. 


The  statements 


pRITE  (IpR.SOO) 
pRlTE  (IpR.IQI) 
on  110  I  X  0,2 

nTYPE  X  0 

DO  510  J  X  l.NOCOHP 

IF  (ItNKJ)  .EG.  I)  THEN 
NTYPE  *  NTYPE  ♦  1 

pRITF  (IpR,  19ll,InST»tPinS)  IE(I1),IC0HP(J),IF(1),IFG(J), 

1  IF(2),H*tCJ),IE(i).IT*MCJ),IE(«).I*N*(J),IE(5),TINIT(J), 

»  IE(»),THINFL(J),lF(9),RHnF(.?),lF(lC),IY(J),IE(in,IU(J), 

*  IF(I2),N0PNTS(J),IF(t J),J, (DEPTH (K.J), IE (12»2»K), 

»  PRV*L()<  .  J  )  ,  IE  (  I  142*K  )  .K  r  l.NnPNTS(Jl) 

ENO  IF 
510  CONTINUE 

pRITE  UpO.5201  NTYPE, I 
510  COnTINuF 


are  used  to  assemble  and  print  the  component  listing  by  analysis  type.  This 
procedure  is  the  same  as  that  used  for  the  three  preceding  summaries.  The 
analysis  type  summary  groups  the  component  information  by  analysis  types  0, 

I  1,  and  2,  by  comparing  analysis  type  values  with  I. 


The  following  statements 


pPITE  (IpR.NOO) 
•rite  (IpR, 1011 
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on  630  I  3  o.io 

NryPE  -  0 

on  610  J  s  liNncoMp 

IF  (lr(j)  .Fo.  n  then 

NTyPF  s  NTYPE  ♦  1 

>»«ITE  (I*«.i90,rnsr*isins)  rF(i3),icn«pfj),iMn,tFr.(j), 

*  lF(^)»P»T(J),TF(3).rTAHIJ),IHu),IANAfJ),It(S),TIMI(J), 

*  IE('>)»THIMFL(J).IFfP),rtnOF(.I),  IKiul.lYUl.lK  1  n.IlKJ), 

»  IF(  I?)  .NflPMSl  J)  ,  IF(lJ),J,(nFPIH(K,.l),IKi;>»^.pO, 

*  PKi/AL  (K  ,  J  )  ,  IE  (  I  3«?*K  )  =  t  .NOPMRC  J  )  J 

END  IF 

610  CPNIINUF 

"PITE  (I«P,6fO)  iJirPE.l 
630  cnNlINUF 

are  used  to  assemble  and  write  the  component  listing  by  system  number.  The 
statements  are  used  to  execute  the  identical  procedure  used  for  the  four  pre¬ 
vious  summaries.  These  steps  group  and  print  the  component  inforn.r _ion  for 
system  numbers  0  through  10. 


The  final  group  of  statements 


STOP 


100  fnpMAT  (*1  THF  FOLLOrttur.  DATA  HAS  HFE*I  PE*f>  AHO  CHECkEO  Fn» 

S  •EPBOns.V  AM  arTeoisa  In  ihF  i>FTH(iST  cniJiMN  IMIICAIES  A*. 
S  •  pnsSIHLF  FPROR  IN  THAT  LIPF.'/*  THE  ChahaCTEP 
*  *  IS  lISFO  in  POINT  To  THE  POSSIBLY  EBPONFOIIS  ITEh.') 

101  FnpwAT  (// 


1 

*  ICOMP 

IFG 

MAT  ITAB  MNA  UNIT* 

3 

SX, ’THINFL 

RHOF 

lY 

lU 

nupnts* , 

3 

ax,  ’CARO*/ 

9 

ox,  ’DEPTHd) 

PRVAL(l) 

DFPTHia) 

PKVALIZ) 

OFPTH(3)*, 

5 

2X,*PKyAL(3) 

OFPTM(a) 

PKvAL(a) 

OEPTMIS) 

PKVAL(5) */ 

6 

RX, *nePTMC6) 

PKVAL(6) 

OEPIHIT) 

PKVALIT) 

DEPTH(B) * 

7 

2X, ’PKVALIS) 

OFPTH(R) 

PKVALtR) 

DEPTH(IO) 

PBVAL(IO)*/) 

(U,A1,IS,A1, 

I6,A1,5H<» 

,Ai),Fn.2, 

A1,2(F'».2, 

Al), 

t 

I7,ai,IR,ai, 

nu.Al.IR, 

2(/F|6.2,A1 

,RCFR.2,AI))) 

200  FORMAT  <M  CHnTC‘L  COMPONENT  SUMMARY*) 

230  FORMAT  (/•  THFHF  ARE  *.I«.*  CRITICAL  COMPONENTS  HAVING  CRITICALI* 
S  *TY  FLAG  *,I3/) 

300  format  <*i  component  listing  by  material  Type*) 

520  format  (/*  ThFHE  are  *,lu,*  COMPONENTS  OF  MATERIAL  TYPE  *.I3/) 

ROO  FORMAT  (*1  component  LISTING  BY  I  AdLE-LOOKIIP  INDEX*) 

020  format  (/*  THERE  ARE  *»IO,*  COMPONENTS  HAVING  TABLF  INDEX  *.13/) 
500  format  (*|  COMPONFNT  LISTING  BY  ANALYSIS  TYPE*) 

520  FORMAT  (/*  There  are  *,I«.*  components  of  analysis  type  *.I3/) 

600  format  (*I  COMPONENT  LISIING  BY  SYSTE"  NUMBER’) 

620  format  (/*  There  are  *.i«.*  components  in  system  numhfr  *,13/) 

ENO 


are  used  to  stop  this  program.  The  FORMAT  statements  are  used  to  specify  all 
output  formats  used  by  WRITE  statements  in  this  program. 
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SUBROUTINE  PROPY 

This  subroutine  is  called  by  Subroutine  RAT  and  is  used  to  compute  several 
properties  for  encountered  metallic  components.  A  large  number  of  DATA 
statements  are  used  to  form  a  set  of  material  property  data  from  which  the 
values  are  computed.  The  following  properties  are  material  dependent  and  are 
only  computed  once  for  each  encounter:  the  coupling  coefficient,  component 
density,  vapor  temperature,  melting  temperature,  and  heat  of  fusion.  The 
coupling  coefficient  is  computed  as  the  product  of  an  intensity  dependent 
factor  and  a  thickness  dependent  factor.  The  interpolation  scheme  used  to 
compute  these  two  factors  employs  function  values  stored  in  arrays,  but  the 
argument  values  are  generated  in  the  coding.  Two  temperature  dependent  prop¬ 
erties,  thermal  conductivity  and  specific  heat,  are  computed  every  time  this 
subroutine  is  executed.  These  two  values  are  interpolated  from  arrays  which 
contain  both  arguments  and  function  values.  All  computed  property  values  are 
transferred  from  this  subroutine  by  using  COMMON  /PROP/. 


The  statements 


StlUMUUTlhE  PHOPr 

CO»«UN  ICOXP  (bUO)  ,M»T(bO(»).IP6tS00),H»BI500),l*N»(S00). 

S  TlNlT  (SuO)  .NOPMSCSOO)  .DEPTH  (10,5110)  ,  PK  V *L  (  1  U  .  500  )  . 

S  XHUf  (5UU), IMVHS. lU(5b0) , IT (500) 

COMMON  TMINEl (500) ,SH(a, 170) , JH(5, 170) .CINCH 

COMMON  /ONE/  NUCOmP.K.!  ,  IP|,*m»PE*''E  .  NCRIT 

COMMON  /PHOP/  *1.P,RH(),SV»L,TM|.T,«L»M«D,BATE.JC0MP,N,UPM.CVAI.. 

%  TVAP.CPt.nEW.l 

DIMENSION  coNDuc ( 1 1  .Ji  1  y) » SPECIF (ii,a.io),oENsn(ii),THtLt(ii,a), 

s  HEATFIKI 1 J  *  ALPHA! 11 , IN), alpha T (It ,») 


are  used  to  facilitate  transferring  values  into  and  out  of  this  subroutine  and 
to  specify  array  dimensions.  The  variables  in  the  DIMENSION  statement  list 
are  used  to  store  the  material  property  data  for  11  material  types. 


The  statements 


c 

€••••• . MlTfOIALS  PROPERTY  DATA . »•••• 

c 

C  *LL  materials  PhOPERTT  DATA  TS  VFRY  INITIAL, 

c  BADE  mAIERIALS-COIIPL  INR  COFFFFIrlENT  IS  Cl'NSTDEPEO  TO  HE  A  constant. 

C  COATFC/PAIMEO  ma  TFP 1  ALS-COOPl  INR  COEFFICIENT  Is  A  FUNCTION  OF  INCIDENT 

c  Flu*  aao  materials  IHICSNFSS. 

C  CntiPLING  coefficient  data  is  FOm  normal  angle  uf  incidence. 
c  ALPHA  IS  coopltmg  coefficient  as  a  EUNCTKIN  of  incident  FlUT.  ALPHAT 
C  IS  1HE  CORRECTION  FACIOW  FOR  “ATEPIAL  THICKNESS, 

c 

c 

C  2a?a  AL  PAINTED  SURFACE 

c 

DATA  CONOUCd.I.D/fe./ 

DATA  (CONOUCd.  l,J),J*a,10)/T«>.,l«.N.,2TR..33R..«aR..«5S.,  J»0./ 

OAT  A  <C0N0UCd.i.J),J*a,  I(i)/I32..l5h.,  IBS.,  I»R.,  175.,  16R.,3»0./ 

DATA  SPECIFd  ,1  ,1  )/7./ 

DATA  (SPECIFdfl.Jl.Jsa.IO)/  a0.,o3..a05.,3l6.,R0(l.,‘i?7.,R50.,?*0./ 
data  (SPECIFd,2,J),J>a,IO)/eRR.,907.,Rbb..lbP5..10R6..daR..115«., 
S  2p0./ 

C 

C  ALPHA  AND  ALPHA!  REPRESENT  CURVE  FITS  TO  INITIAL  AFhl  DATA 
C 

DATA  ALPMAd,l)/.8b/ 

DATA  IALPMAd.J),J«2,IN)/.7?,.HO,,a6,.«0..35,.3?,.2R,.27, 

S  .2AA,.22«,.I58,.l3b,.d5,.102R..nRa/ 
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t)»T*  »LPN*1(t.n/1.13/ 

OtJA  (tLPH«T(  l.J)..ls2,P)/l,07..91,.aa,.75..6a,  .5a.. 38,. 0  3/ 

0»7*  DENSIT(l]/277a./ 

047*  tTMELTfl.Jj.Jst .2)/50a.,2500./ 

047*  HE4TPU(l]/3a9|12./ 

C 

C  7075  *L  P4INTE0  S00F4CE 
C 

0474  C0N0liC(2.1.n/7./ 

047*  (CONOUC(2.1,J),Js2.|0)/3..l07..207..?fcO.,356.,a6i.,8?«.,2,o./ 
047*  tCONOUC(2.2.J).Js2,10)/|22.. lai., I77.,179., 177., 170.,167., 

*  24»./ 

047*  SPECIF(2.1.1)/a./ 

04  74  (SPEC IF (2, l,J).J*2,t07/0..100.,200.,30ft.,400.,a50.,3«0,/ 

0*7*  (SPECIF (2,2, J ) , Ja2, lo)/a20.,903.,9h6. ,  1 03*. ,  1  1 29 . , 1  197. , 3»0 ./ 
047*  OENSITt2)/2aoa./ 

0*7*  H£A7FU(2)/3«07a4./ 

0*7*  (THELT(2,J),Jsl.2)/a7b.,a./ 

C 

C  NO  0*7*  *(.PH*  »Nn  4I.PH47  ASSItPED  SAME  *S  P4INTE0  2029  *L 
0A7A  ALPH*(2.n/.8a/ 

0*7*  (*LPh*(2.Jl.J=2.la)/.72,.ao,.a6,.ao,.35,.32, .29,. 27, 

*  . 294,. 22u,.isa,. 136,. 115,. 1024,. 09a/ 

0*7*  *LPM»7(2.1)/1.13/ 

04  7*  (*LPMAI  (2,J  ) .  J=2,9)/l  .07,.91 ,  .Aa,  .75,  .68,  .54,  .38,  .('$/ 

C 

C  5456  (*HC6)  *L  P*IfiTEO  SiihFaCF 
C 

0*7*  COMOnC (3,1,1 1/7./ 

n*r»  (CO»<n(iC(  5.  l .  J ) .  J42,  t oi/o..so.,  ion.,  i5n. , 200. , 2So. ,  3o». , 2«o./ 
0*7*  (CONn'iC(3,2,JJ,Js?.IO)/109.,120.,l?*.,l31.,132.,l35.,  1  56., 

3  2*0./ 

0*7*  SPECIF(3.l,l)/3./ 

n*T*  (SPFCIFd,  l,J)  .3*2,101/ ti)0.,300.,650.,b«('./ 

0A7*  <SPfrIF(3,2,J)  ,J»2,  101/920.,  lOaa.,  1255.,6»()./ 

0*7*  OFNSt7(3)/50OO./ 

0*7*  h£*7FU(3)/3A91 12./ 

0*7*  (7Pei,7(3.J).Jal,2)  /571. ,700ft./ 

C 

C  NO  0*7*  ALPHA  ANO  ALPHA7  ASStIPFO  SAME  AS  P*IN7ED  2024  *L 
C 

0*7*  4LPH»(3,1)/.86/ 

0*7*  (*LPM*(3, J), J=2, 16)/.72,.60,.a6,.ao,,35,.32, .29, .27, 
t  .24  4, .224,. 158,. 136,. 115,. 1 024.. 090/ 

0*7*  *LPH*7(3,1)/1.13/ 

0*7*  (*LPH*7( 3, J), 342,91/1.07,. 91,. 88,. 75,. fte,.5a,.38,.05/ 

C 

C  6*LaV  71  PAINTEO  SUPFacE 
C 

0*7*  CONOUC(a, I , 1 1/7./ 

0*7*  (CONOUC (4, 1.31,3:2, I  01/189., 260., 371., 827.. 880.. S38.,649., 

S  2<Q.  / 

0*7*  (C(1NDUC( a, 2, 3 1.3:2,  10 1/9. 5,  1 1.8,1  a.,  15. 1,1 6.3,  17. 3, 19.6, 2*0./ 
0*7*  SPECIF(a,I,ll/6./ 

0*7*  (SPEC IF (4, 1,31, J *2,10 1/98., 205., 31 6., 427., 538., 649., 5»0./ 

0*7*  (SPEC IF (4,2,3 1,3:2, I 01/56a.,598.,619.,640.,66l .,678.,  3*0./ 

C 

C  ALPHA  AND  4LPH47  SEPPESENI  CURVE  F17S  70  INI7I4L  AFWL  0*7* 

C 

0*7*  *LPH«(8,l]/.86/ 

(1*7*  (*LPH*( 4,3)  ,3*2, 161/. 66,. 51  ,.42,  .35,  .32,  .29,  .28,  ,26,  .25,  .24, 

S  .23, .23, .23, .23, .23/ 

0*7*  ALPHA! (4, 1 )/l .59/ 

0*7*  ( 4LPH47 (4,31 ,3:2,91/1 .04, .9e,.98, .96, .96, .91, .87, .8 3/ 

0*7*  (ThEl7(0,3),3:1,2)/1565.,2277./ 

0*7*  r)ENSI7(41/aa30./ 

0*7*  mE*TFU(41/426870./ 

C 

C  PURE  71  PAIN7ED  SURFACE 
C 

0*7*  C0n0uC(5, 1,11/9./ 

0*7*  (C0NniiC(5,l,3),3*2,  10)/  27.,  127.  ,227.  ,  827.  ,  627  . ,  827 . ,  1  227.  , 
t  1527., 1627./ 

0*7*  (CONOI'C  (5, 2,3)  ,3:2,  101/21  ,9,20.4,19.7,  19.8,20.2,21.3.28.5, 

7  27.1,28.0/ 

('At*  8BECIF(5,  I ,  I  1/7./ 
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I 

I 


I 


1 


i 


I 

I 


I 


I 


I 


nnli  (SPErir(‘i,i,j),,|i2,in)/^7,,I27.,3?7.,627.,«2?..'527,.ll27.. 

niTA  (5!PErlF(‘-,P,.l),JsP,10)/il??..S70..h77.,72H,,7UJ.,bO‘>..6«5., 

S  P«b./ 

OATi  n''FL1f'.,.M,Jrl.^)/1660..O./ 

DATA  HF  A  tHI(b) /uSbl  36,/ 

DATA  DF>iSI  T  ('i)/U‘iOO./ 

C 

C  NO  data  alpha  and  ALPhAT  ASSL'hED  RAHf  AS  PAINTED  hAL«V  T1 
C 

DATA  ALPHA(S,n/.86/ 

DATA  (ALPHA(N,,l),Jli<,1h)/.hb,.ST,.A?,.3S,.3P,.?'»,.?H,,26,,?S,.J«. 
*  .^3,.P3,.^3..^3..^3/ 

data  AI PMaT  (S.1)/1.S«/ 

DATA  lALPHAT(b.J),Js2»'»)/1.0a,.<)B,.P8..9h,.Pb,.Pl,.H7,.e3/ 

C 

C  VMhS-l  (ZKbO)  HAT.  ALLOY  PAINTED  SURFACE 
C 

DATA  CONDI'C(n,1,1)/1./ 

DATA  (CDMDDC (b. 1 . J) , J*?. 1 0)/?5.,««0./ 
data  (CONDtJC  ((,,2,  J)  ,,Is2,  101/1  09. ,B«0./ 

DATA  SPECIF lb,t,l)/B./ 

DATA  (SPECIF (6, 1 , J1 , Js2, 1 0)/IS2,,227.,327.,u27, ,S?n, ,521 .»627., 

S  727. .0./ 

DATA  (SPECIE  (b.2,J)  ,Js2, 10)/10<,3.,  1075,,  1205.  ,  1031  1380.,!  305., 

»  13fc«., 1599.,o./ 

DATA  HEATFU(bl/32b352./ 

DATA  DENS1T(6)/1«30./ 

DATA  (TMELT(fe,J),J=l, 21/520. ,0./ 

C 

C  NO  data  alpha  and  ALPMAT  assumed  similar  to  PAINTED  2029  AL 

c 

DATA  ALPHA(h, I )/.g6/ 

DATA  (ALPHA (6, J) , Ja2, t 8 1 / . 72, .80 , . 9h , ,90 , . 35, . 32 , .29, ,27, 

S  .299,. 229,. 158 ,.130,. 1  1 8,. I  072,. 10/ 

data  ALPMAT(<.,1)/1.13/ 

DATA  (ALPMAT(6,J),Js2,91/1.07,.91,.89,,75,.fc8,.59,.3e,.03/ 

C 

C  M(.5  (a281a,aZ80)  mag  alloy  painIED  surface 

c 

DATA  CONDiiC  (7, 1 , 1  1/3./ 

DATA  (CONDIIC  (7,  l,J),.|s2,10)/0.,ino.,20  3.,b»0./ 

DATA  (  CONDIIC  (  7, 2,  J  Is2,  101/89. 0,73,  b.eo.b,  8*0./ 

DATA  OENSIT (71/1800./ 

DATA  HCATF|l(71/3389n9./ 

DATA  (TMELI ( 7, J1 ,jsl ,21/990. ,0./ 

Data  SP£CIE(7, 1,11/7./ 

data  (SPEC1EI7,1 ,Jl,J=2,in)/127.,227.,327.,927.,5P7.,827.,727., 

S  2*0./ 

DATA  (SPECIF (7,2, J1 , Js2, 1  0  1/1059., 1 12I .,  1  187.,  1205.,  1222.,  19  28., 
S  1928. ,2*0./ 

C  NO  DATA  alpha  A%n  ALHMAT  ASSUMED  SIMIL*“  TO  PAIMTED  2029  AL 

c 

data  AI  PMA  (  7,  I  1  /  .88/ 

DATA  (ALPHA(7,,ll,,ls2,l8l/.72,.8  0,.9h,.90,.35,.32,.29,.27, 

»  ,29U,, 229, .158, .138, ,11*, .1072, .10/ 

DATA  AlPMAT 17,11/1.13/ 

DATA  (AlPhAT(7,J),.I  =  2,9)/I.('/,.91,.89,.75,.8«,.59,.  38,.03/ 

C 

C  AZ318  F-AF,  ALIIIY  pAl.Tfll  surface 
C 

data  CONDiiC  (8,1,1  1/3./ 

DATA  (CnNDllC(",1,.ll,.lsE''01/1?7.,?59.,352.,6*0./ 

DATA  ( CONDUC  (8,2»J),J*2,101/9'l.,H;l.,107.,b«0./ 

DATA  (TfELT(8,J),Js1,2)/805.,11»7./ 

DATA  i,ENSIT(81/1770./ 

DATA  ME*TEU(8)/3389n9,/ 

DATA  SPfCIE(8,l,l)/8./ 

DATA  (SPECIE(a,l,Jl,Js2, 101/152. ,227. ,327. ,52 7. ,555. ,558. ,827., 

*OaTA  ( SPECIE!*, 2, J),Js2, 101/1107., 1187. ,12«7., 1990. ,1993. ,1373., 
*  1901,,I««8.,0./ 

C  NO  data  alpha  and  ALPHA!  ASSUMED  SIMILAR  TD  PAINTED  2029  AL 
C 

DATA  ALPhA(8, 1 )/.86/ 
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DATA  IALPHA(8,  J),  Js2,  .32/  .JP.  .27, 

S  .24a. .224/ .1S8. .I3b,.lin/.I072,. 10/ 

DATA  ALPMAT(8, 11/1.13/ 

DATA  (AUPHAT(8.Jl.Js2.4)/l.a7,.P|,.ea,.7S,.bB,.54,.38,.03/ 

C 

C  EI455  (IPONIC  751  NICKEL-CHROMIUM  ALLOT  PAINTED  SURFACE- 
C 

DATA  C0NDuC(4, 1,11/7./ 

DATA  (CONOUCCP, 1/ Jl. J32. 10 1 /too., 200., 400., bOO., 800., 1027./ 1342./ 

S  2*0./ 

DATA  1CI)NDUC(4,2,J1  ,J=2,10)/13.'>.15.7,  lR,l,22.b,2b.0,29.3.35.8, 

S  2*0./ 

DATA  HE4TFU(<>l/3221b8./ 

DATA  UENSTT(Ol/(l/l00./ 

DATA  (TMElTO.JI.JsI  ,21/14  00. ,0./ 

DATA  SPFCIF(4,l.n/b./ 

DATA  (SPECIF(<I,1,J1,J=2,101/I00.,300.,500.,b00.,75n.,«oo.,3*0./ 
DATA  (SPECIF  (9,2.Jl.J=2,ini/iib8.,SO2.,S12.,b23.,b0b.,blR.,3*0,/ 

C 

C  NO  data  alpha  and  ALPHAT  assumed  same  as  painted  304  STAINLESS  STEEL 
C 

DATA  ALPNA(9,ll/.8b/ 

DATA  (ALPHA(4,Jl,J=2,tbl/.59,.as,.Stt,.30,.2b,.22..19,.18,.l7,,lb, 

$  .12, .12, .12, .12, .12/ 

DATA  ALPHAT (9, I J/1 .O]/ 

Data  (4LPhAT(0,.I1  ,  Js2,9)/t  .04,.98,.9b,  .9b,  .48.  .9b.  ,9h,  .Of,/ 

C 

C  504  (1KH18N9T1  stainless  STEEL  PAINTFD  SURFACE 
C 

data  DELSITI 101/7990./ 

DATA  hEATFIK  1  f,l/297ilA«./ 

DATA  (TmELT( 10, J1 ,Jsl ,21/140U.,0./ 

DATA  CnNOllCClO,  1,11/7./ 

data  (CCINDilCdO,!  ,J),js2,l  01/200.,  300.,  4  0  0.,  50  0.,  bSO.,  102  7.,  1392., 
»  2*0./ 

DATA  (C0N0mC(IO,2,j1,js2,101/I8.,19.5,2«.,21,3,2S,,?9.5, J4.7,2*0./ 
data  SPtCrFClo, 1,11/5./ 

Data  (SPFCIFdu.l.ji  ,,1*2,1 01 /200.,4fl0.,b00., hoc.,  iroj.,u,o./ 

^  DATA  (.SPECIFdO, 2,  Jl, JS2, 101/519. ,553. ,573., 598. ,bbO., 4.0./ 

C  ALPHA  AND  ALPHAT  REPRESENT  CURVE  FITS  TO  INITIAL  AFwL  DATA 
C 

data  ALPHAdO,  1  l/.8b/ 

data  {4LPHAdO,Jl,Js2,Ibl/.S9,.43,.3o,.30,.2b,.22,.19,.l8,.l7,.lb, 
S  .12, .12, .12, .12, .12/ 

DATA  ALPHATdO, 0/1.91/ 

DATA  (  ALPHATdO,  J).,JS2,9) /I  .04  ,  ,98  ,  .  98,  .9b  ,  ,  98  ,  .  9^  ,  ,4^  ,  ,98/ 

C 

c  CD  bare  Surface 

c 

DATA  CONOUCd  1  ,  1, 0/5./ 

DATA  (CQNOUCdl,  I,  Jl,Js2,10)/89..232.,ao  .,«a9.,u99.,4.0./ 
data  (CONOUCd  1,2,  J),J=2,  10 1/403.,  394.,  38  8.,  387.,  38b.,  4.0,/ 
data  SPF.CIFdl, 1,0/9./ 

DATA  (SPECIFO I,t,j),js2,l01/95.,204.,31b.,a27.,538.,7b0.,e71., 

S  982.,10b5./ 

0ATA(SPECIF( U,2.Jl,Js2,101/397.,402.,4ia.,423,,4O0.,«73.,493., 

S  513. ,540./ 

Data  0EN5iTdO/«9b0./ 

DATA  (TMELTd  1  ,J),Jsl. 21/1083., 2595./ 

DATA  MEATFUd  0/21  1710./ 

C 

C  alpha  IS  A  GUESS 
C 

DATA  (ALPHA  (0,J1,.  -  l,lbl/. 4,15*0./ 

c 

c 


are  DATA  statements  used  to  assign  values  to  the  material  property  data.  Each 
of  the  11  material  types  is  identified  in  the  comment  statements  preceding  its 
group  of  DDATA  statements.  The  contents  of  each  array  will  be  described  along 
with  the  coding  that  uses  the  array. 


The  statements 
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HtTL  s  M*t(N) 

I  IF  (ITER  .EO.  0)  Then 

T  X  TINIT(N) 

TV»P  «  THELT (m*TL.?) 
TNLT  s  TMElT(m*Tl.I) 
tLXHBO  X  hcXTFU(MXTL) 


are  used  to  obtain  the  material  dependent  characteristics  from  the  materials 
property  data.  The  first  assignment  statement  is  used  to  assign  the  material 
type  for  the  component  to  the  variable  MATL.  The  last  four  assignment  state¬ 
ments  are  used  to  determine  the  initial  operating  temperature  T,  the  vapor 
temperature  TVAP,  the  melting  temperature  TMLT,  and  the  heat  of  fusion  XLAMBD 
for  the  component  in  this  encounter.  The  block  IF  statement  is  used  to  cause 
the  execution  of  the  statements  in  the  THEN  branch  only  when  this  is  the  first 
call  to  Subroutine  PROPY  for  this  encounter.  The  material  characteristic 
variables  are  all  in  COMMON  /PROP/  and,  because  of  their  global  properties, 
retain  their  value  on  subsequent  calls  to  this  subroutine. 

The  statements 


I  IF  (MiTi  .eE.  in  then 

ALP  X  ALPHA(MATL.I) 


are  used  to  assign  the  coupling  coefficient  to  the  variable  ALP  if  the  encounter 
I  is  with  a  bare  metal.  If  the  material  code  indicates  a  coated  material,  the 
I  ELSE  branch  of  the  block  IF  is  executed. 

The  statements 

ELSE 

IF  (PEAKF  .GE.  1.0E«0«)  THEN 
aval  X  i.OE^OX 
K  X  u 

260  continue 

K  X  «  ♦  1 

AVAL  X  N  -  10 

IF  (PEAKF  .GT.  IVALxAVAL)  60  TO  260 
ELSE 

aval  X  l.0E*03 

A  X  I 

310  CONTINUE 

K  X  N  «  1 

AVAL  X  K  .  1 

IF  (PEAKF  .GE.  AVALaAVAL)  GO  TO  310 
END  IF 

YV*L  S  i  IL  #  ► -I  )  •  t  MATl#  K) 

kM  s  -TVAL  /  IV*L 

ALPF  X  ALPxAIMaU  ,l>)  A  E"  •  (PtAAf  -  aval  •  (AVAL)) 

are  used  to  interpolate  a  value  for  the  intensity  dependent  factor  of  the 
coupling  coefficient  for  a  coated  material  from  the  ALPHA  array,  using  flux 
level  arguments  of  0,  1000,  2000,  3000,  4000,  5000,  6000,  7000,  8000,  9000, 

I  10000,  20000,  30000,  40000,  50000,  and  60000  watts/cm  .  The  bloqk  IF 

I  statement  determines  whether  the  flux  is  at  least  10000  watts/cm“.  The 

statements  in  this  branch  are  used  to  find  the  interval  number  K  that  contains 
the  flux  level  PEAKF.  The  arguments  10000,  20000,  30000,  40000,  50000,  and 
60000  are  the  product  XVAL*AVAL  in  the  IF  statement  and  correspond  to  interval 
I  numbers  11,  12,  13,  14,  15,  and  16.  The  ELSE  branch  of  the  block  IF  is 
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2 

executed  only  when  the  flux  level  PEAKF  is  less  than  10000  watts/cnv  .  The 
statements  in  this  branch  are  used  to  ficd  the  interval  K  that  contains  the 
flux  level  PEAKF  using  flux  arguments  of  1000,  2000,  3000,  .  .  .  10000, 
which  correspond  to  interval  numbers  2,  3,  4,  .  .  .  11.  The  three  assign¬ 
ment  statements  following  the  block  IF  are  used  to  linearly  interpolate  a 
value  for  ALPF  from  the  array  ALPHA.  This  interpolation  is  written  mathemati¬ 
cally  as: 


01 


f 


(\-l  ~  \ 
y  AX 


where 


a-  ®  the  interpolated  result  ALPF 

=  the  Kth  function  value  from  the  ALPHA  array 
AX  *  the  argument  step  size,  XVAL 
f  =  the  flux  level,  PEAKF 
Xj,  *  the  Kth  argument  value,  (XVAL*AVAL) 

The  ALPHA  array  is  doubly  subscripted  by  the  material  type,  MATL,  and  the 
Interval  number,  K.  Table  4-4  gives  a  tabular  representation  of  the  table 
being  used  for  this  interpolation  scheme. 

The  next  statements 

Of  a  l.vx  /  U.UJSO 
If  ((If  .<iE.  ^.0e-U!) 

»Lf1  *  *LfH*I  (f 

are  used  to  start  the  computation  of  the  thickness  dependent  factor  of  the 
coupling  coefficient.  First,  the  component  thickness  is  converted  from  meters 
to  inches  for  use  within  Subroutine  PROPY.  The  block  IF  statement  is  used  to 
determine  if  the  thickness  DP  is  greater  than  or  equal  to  the  largest  argument 
for  the  APHAT  array.  If  it  is,  the  THEN  branch  of  the  block  IF  is  used  to 
allocate  the  last  element  from  array  ALPHA!  for  the  specific  material  type  to 
the  variable  ALPT.  If  not,  the  ELSE  branch  is  used  to  perform  the  interpola¬ 
tion. 


The  statements 


else 

IF  (I'f  .i;t.  Then 

»v*L  - 
F  s  6 

3T)0  CU..IINIJE 

n  =  H  ♦  1 
»V»L  s  F  -  b 

IF  (Of  .&E.  »V«L»*V»E)  r.O  TIJ  3(>0 

are  used  to  determine  the  interval  number,  K,  which  contains  the  component 
thickness  DP,  if  the  thickness  is  between  0.05  and  0.20  inch.  The  block 
IF  statement  is  used  to  determine  if  the  thickness  is  at  least  0.05  inch. 
If  it  is,  the  THEN  branch  is  used  to  compare  the  arguments  0.10,  0.15,  and 
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TABLE  4-4.  ALPHA. 
MATERIAL  CODES 


FLUX  K  1  2  3  4  5 

0  1  .8600  .8600  .8600  .8600  .8600 

1000  2  .7200  .7200  .7200  .6600  .6600 

2000  3  .6000  .6000  .6000  .5100  .5100 

3000  4  .4600  .4600  .4600  .4200  .4200 

4000  5  .4000  .4000  .4000  .3500  .3500 

5000  6  .3500  .3500  .3500  .3200  .3200 

6000  7  .3200  .3200  .3200  .2900  .2900 

7000  8  .2900  .2900  .2900  .2800  .2800 

8000  9  .2700  .2700  .2700  .2600  .2600 

9000  10  .2440  .2440  .2440  .2500  .2500 

10000  11  .2240  .2240  .2240  .2400  .2400 

20000  12  .1580  .1580  .1580  .2300  .2300 

30000  13  .1360  .1360  .1360  .2300  .2300 

40000  14  .1150  .1150  .1150  .2300  .2300 

50000  15  .1024  .1024  .1024  .2300  .2300 

60000  16  .0940  .0940  .0940  .2300  .2300 


6  7  8  9  10  11 

.8600  .8600  .8600  .8600  .3600  .4000 
.7200  .7200  .7200  .5900  .5900  .0000 
.6000  .6000  .6000  .4300  .4300  .0000 
.4600  .4600  .4600  .3400  .3400  .0000 
.4000  .4000  .4000  .3000  .3000  .0000 
.3500  .3500  .3500  .2600  .2600  .0000 
.3200  .3200  .3200  .2200  .2200  .0000 
.2900  .2900  .2900  .1900  .1900  .0000 
.2700  .2700  .2700  .1800  .1800  .0000 
.2440  .2440  .2440  .1700  .1700  .0000 
.2240  .2240  .2240  .1600  .1600  .0000 
.1580  .1580  .1580  .1200  .1200  .0000 
.1360  .1360  .1360  .1200  .1200  .0000 
.1180  .1180  .1180  .1200  .1200  .0000 
.1072  .1072  .1072  .1200  .1200  .0000 
.1000  .1000  .1000  .1200  .1200  .0000 
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0.20,  corresponding  to  interval  numbers  7,  8,  and  9  with  the  thickness  DP. 
The  argument  values  are  the  product  XVAL*AVAL  in  the  IF  statement.  The  IF 
statement  is  used  to  loop  back  to  Statement  360  until  the  interval  K, 
which  contains  the  thickness  DP,  is  found. 


The  statements 


EtSE 

«v«L  =  i.ot-oa 
«  =  1 

«io  continue 

R  =  «  ♦  i 
*WAL  s  K  -  I 

IE  (Of  .G£.  xi/«L«*VAL)  GO  TO  aio 
ENO  IF 


are  used  to  determine  the  interval  K,  which  contains  the  thickness  DP  if  the 
thickness  is  less  than  0.05  inch.  This  search  is  similar  to  that  executed  by 
the  previous  group  of  statements,  except  that  these  steps  use  arguments  of 
0.01,  0.02,  0.03,  0.04,  and  0.05  corresponding  to  interval  numbers  2,  3,  4,  5, 
and  6,  respectively. 

The  next  statements 

»V*t  =  ALFHAt (MATC.R-t)  •  ALPHA T (MA TC , A ) 

EM  »  -TNAL/XNAL 

ALPT  S  ALPhAT (PATL.R)  ♦  Em  •  top  •  XVAL  •  (aval)) 

ENO  IF 

are  used  to  linearly  interpolate  a  value  for  the  thickness  dependent  factor, 
ALPT,  from  the  array  ALPHAT,  using  the  interval  between  subscripts  K-1  and  K, 
for  the  specified  material  code.  Table  4-5  is  a  tabular  representation  of  the 
function  being  used  for  this  interpolation  scheme.  The  interpolation  scheme  is 
written  mathematically  as: 


where 

*  the  interpolated  result  ALPT 
a  =  the  Kth  function  value  from  the  ALPHAT  array 
Aa  =  the  argument  step  size,  XVAL 
d  =  the  thickness  DP 
Xj.  =  the  Kth  argument  value,  XVAL*AVAL 

The  statements 


s 


ALPC  s  ALPF  •  ALPT 

IF  ((ALPC  ,LI.  ALPHA(M4Il,())  .ANO.  (ALPC 

alpha(matl,i#)))  Then 

ALP  *  ALPC 

else  if  (ALPC  .GE.  alpha (maTl. 1 1 )  THEN 
alp  s  alpha (pa TL.  1  ) 


.GT. 
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TABLE  4-5.  ALPHA! . 


MATERIAL  CODES 


THICKNESS 

K 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

1 

0  .00 

1 

1.13 

1.13 

1.13 

1.59 

1.59 

1.13 

1.13 

1.13 

1.91 

1.91 

.00 

0.01 

2 

1.07 

1.07 

1.07 

1.04 

1.04 

1.07 

1.07 

1.07 

1.04 

1.04 

.00 

0.02 

3 

0.91 

0.91 

0.91 

0.98 

0.98 

0.91 

0.91 

0.91 

0.98 

0.98 

.00 

0.03 

4 

0.84 

0.84 

0.84 

0.98 

0.98 

0.84 

0.84 

0.84 

0.96 

0.96 

.00 

k.  ,  • 

0.04 

5 

0.75 

0.75 

0.75 

0.95 

0.96 

0.75 

0.75 

0.75 

0.96 

0.96 

.00 

• 

0.05 

6 

O 

• 

CO 

0.68 

0.68 

0.96 

0.96 

C.C3 

0 .68 

0 .68 

0.96 

0.96 

.00 

i 

0.10 

7 

0.54 

0.54 

0.54 

0.91 

0.91 

0.54 

0.54 

0.54 

0.96 

0.96 

.00 

0.15 

8 

0.38 

0.38 

0.38 

0.87 

0.87 

0.38 

0.38 

0.38 

0.96 

0.96 

.00 

0.20 

9 

0.03 

0.03 

0.03 

0.83 

0.83 

0.03 

0.03 

0.03 

0.96 

0.96 

.00 
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ELSE 

ALP  A  ALPHA(MATL.IS)  Ij 

END  IF 
ENO  IF 

are  used  to  complete  the  computation  of  the  coupling  coefficient  for  coated 
materials.  The  assignment  statement  is  used  to  compute  this  coefficient  as 
the  product  of  two  factors:  ALPF,  which  is  a  function  of  intensity  and  ALPT, 

I  which  is  a  function  of  thickness.  This  is  followed  by  a  block  IF  which  is  ( 

used  to  compare  the  computed  coupling  coefficient  with  the  endpoints  on  the 
curve  represented  by  array  ALPHA.  If  the  computed  coefficient  is  within  the 
tabular  values,  it  is  assigned  to  the  variable  ALP.  If  it  is  outside  the 
table  range,  the  coupling  coefficient  ALP  is  assigned  a  value  equal  to  the 
closer  endpoint  of  the  curve. 

I 

The  statements 

PnO  a  OENSITIMaTlI 
lEMP  a  (ImlT  ♦  T)  /  a. 

I  a  TEMP 
ENO  IF 

I 

are  used  to  compute  the  component  density  and  temperature  for  the  material 
type.  The  first  assignment  statement  transfers  the  density  for  the  component 
material  code  to  the  variable  RHO.  The  last  two  assignment  statements  are  used 
to  set  the  variables  TEMP  and  T  equal  to  a  temperature  halfway  between  the 
initial  operating  temperature  and  the  melt  temperature.  These  are  the  last  of 
the  material  dependent  properties  for  this  encounter.  Since  the  variables  .\LP, 

RHO,  and  T  are  all  global  (in  COMMON  /PROP/),  the  next  call  to  Subroutine  PROPY 
for  the  same  encounter  can  start  immediately  at  the  next  set  of  statements. 

I  The  statement 

TEWP  s  T 


I  begins  the  computation  steps  for  the  temperature  dependent  encounter  properties. 
The  temperature  TEMP  is  the  value  which  changes  between  calls  to  this  subroutine 
and  is  the  argument  for  the  two  interpolation  procedures  remaining  in  this 
subroutine. 


The  statements 

MVAL  *  NINl(Cn.,OUCl'<AIL,l,I))  ♦  1 
IF  (TENF  .lE.  C0NI)UC('«A1l.I,E)1  then 
CVAL  =  ClJNOUClVATL.i.if) 

ELSE  IF  (TEMP  .r.E.  COMi  JC  IHATL .  I  »»val)  )  THEN 
CVAL  =  CUNOUCIVAlL.e.MVAL) 

ELpE 

00  90  I  3  AVAL 

IF  tIEHP  .LE.  ClINUUCINATL.l.in  then 

CVAl  3  CONUUClHAlL.i.l)  -  (CONOUC (HAIL, I, 1)  -  TEMP)  • 

S  (CUNOUL  (HA  IL,E.  I  )  -  COI<UuC("lATL,i,l-l)  )  / 

$  (C>iNUUL(HA(L,l,I)  -  CONOUC(MATL.  I  ,  1*1)  ) 

GO  To  Ivu 
ENU  IF 
90  CONTINUE 
ENU  IF 

are  used  to  interpolate  a  value  for  CVAL,  the  thermal  conductivity,  corre¬ 
sponding  to  the  temperature  TEMP  from  the  array  CONDUC.  The  CONDUC  array 
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are  used  to  interpolate  a  value  for  CVAL,  the  thermal  conductivity,  corre¬ 
sponding  to  the  temperature  TEMP  from  the  array  CONDUC.  The  COitOUC  array  has 
three  subscripts:  the  first  one  identifies  the  material  code,  the  second 
subscript  equals  1  for  the  function  arguments  and  equals  2  for  the  function 
values,  and  the  third  one  corresponds  to  the  points  in  the  function  table, 
beginning  with  the  subscript  equal  to  2.  The  array  element  COfJDUC(i'lATL,l ,1 ) 
has  the  number  of  points  in  the  function  table,  and  C0IJD[JC(MATL,2,1)  is  not 
used.  The  first  assignment  statement  is  used  to  store  the  number  of  data 
points  in  the  integer  variable  ilVAL.  The  second  assignment  statement  is  used 
to  compute  MVAL,  the  subscript  of  the  last  data  point.  The  next  three  IF 
statements  are  used  to  determine  if  the  temperature  is  within  the  function  argu¬ 
ments.  If  the  temperature  is  not  within  the  function  arguments,  CVAL  is 
assigned  the  function  value  corresponding  to  the  argument  closer  to  the 
temperature  and  the  routine  branches  to  Statement  100,  bypassing  the 
interpolation  steps.  The  DO  loop  is  used  to  find  the  argument  interval  con¬ 
taining  the  temperature  TEMP.  The  IF  statement  in  the  loop  is  used  to  branch 
to  the  end  of  the  loop  until  the  correct  interval  is  found.  The  assignment 
statement  in  the  loop  is  used  to  perform  a  linear  interpolation  on  the  COilDOC 
array.  The  linear  interpolation  for  CVAL  is  written  mathematically  as: 


where 

y^  =  the  ith  function  value  from  the  CONDUC  array 
x-j  =  the  ith  argument  value  from  the  CONDUC  array 
t  =  the  temperature  TEMP 


The  GO  TO  statement  is  used  to  branch  out  of  the  loop  after  a  value  for  CVAL 
has  been  interpolated. 

The  next  statements 

'ivtLsSPtCt^lotTL.I.Dv.OOl 

IF  (TE>f  .|.E.R*bCIF(M*TL.  1.2))  SV*Ls9^CC  IF  (MATU,  2. 2) 

IF(U»F.GE.SPECir  (MiTL.l.xViL))  5V»L»SPEC1F  2.HV*t) 

IFCSvd.cr.U.)  GU  TO  200 
UJ  ISO  Ul.hvti, 

lF(TE>*F.GT.SPEClF(»>»TL.l.n)  GO  TO  ISO 

S«FU*SPEC|F('T*rL,2.1)  -  (SPECIF  I,  I  )-TEMP)»  ( SPECIF  (M»TL.  2.1 

U-SPECIF(m<il.2.1>I))/(SPECIF(F*«TL.1.1)-9PECIF(M*TL.1.1«I)) 

GO  TO  2b(l 
ISO  Cb'iTlNUE 
200  C'J.TIM'E 
•  ETUMfii 

t-.o 

are  used  to  interpolate  a  value  for  SVAL,  the  specific  neat,  from  the  array 
SPECIF.  This  array  contains  both  arguments  and  function  values  in  the  sane 
arrangement  as  the  COilDUC  array.  Tne  linear  interpolation  routine  is  identical 
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cuse 

»tP  =  *LPM»(M»tL.lfc) 

CNO  IF 

END  IF 

are  used  to  complete  the  computation  of  the  coupling  coefficient  for  coated 
materials.  The  assignment  statement  is  used  to  compute  this  coefficient  as 
the  product  of  two  factors:  ALPF,  which  is  a  function  of  intensity  and  ALPT, 

I  which  is  a  function  of  thickness.  This  is  followed  by  a  block  IF  which  is 
used  to  compare  the  computed  coupling  coefficient  with  the  endpoints  on  the 
curve  represented  by  array  ALPHA.  If  the  computed  coefficient  is  within  the 
tabular  values,  it  is  assigned  to  the  variable  ALP.  If  it  is  outside  the 
table  range,  the  coupling  coefficient  ALP  is  assigned  a  value  equal  to  the 
closer  endpoint  of  the  curve. 

The  statements 

RHO  z  OENSIKMtTL) 

IEMF  a  <I«l.T  ♦  T)  /  2. 

T  a  TERF 
EMO  IF 

are  used  to  compute  the  component  density  and  temperature  for  the  material 
type.  The  first  assignment  statement  transfers  the  density  for  the  component 
material  code  to  the  variable  RHO.  The  last  two  assignment  statements  are  used 
to  set  the  variables  TEMP  and  T  equal  to  a  temperature  halfway  between  the 
initial  operating  temperature  and  the  melt  temperature.  These  are  the  last  of 
the  material  dependent  properties  for  this  encounter.  Since  the  variables  ALP, 
RHO,  and  T  are  all  global  (in  COMMON  /PROP/),  the  next  call  to  Subroutine  PROPY 
for  the  same  encounter  can  start  immediately  at  the  next  set  of  statements. 

I  The  statement 

TEXF  a  T 


I  begins  the  computation  steps  for  the  temperature  dependent  encounter  properties. 
The  temperature  TEMP  is  the  value  which  changes  between  calls  to  this  subroutine 
and  is  the  argument  for  the  two  interpolation  procedures  remaining  in  this 
subroutine. 


The  statements 


MV*t  a  NlNT(Cn.,UUCI>1FTL,l,t))  *  1 
IF  (TEMP  ,lE.  C0NQUC(i"»lL»1.2))  THEN 
CVIL  a  CUNUUC(R>rL.2.2) 

ELSE  IF  (TEMP  .f.E.  COl.DUC  (MITL.  1  .MVFL)  )  THEN 
CV»L  a  CJNOUC (M*TL.£.nvaL) 

ELSE 

00  50  I  a  2,  .IVFL 

Hf  itemf  .le.  cu^uuc(M*TL.t.n)  then 

CV*L  a  C'jNOUCIRATl.E.I)  -  (CoNliOC(M»TL,I,I)  -  TEMPI  • 

%  (CUNl)UCl«*TL.2,n  -  C0I.00C(M*TL, 2,1-1))  / 

S  (Ci)NUUt(M*TL,l,I)  -  CONOOC(H»TL, 1,1-1)) 

GO  To  luu 

end  if 

50  continue 
ENU  IF 

are  used  to  interpolate  a  value  for  CVAL,  the  thermal  conductivity,  corre¬ 
sponding  to  the  temperature  TEMP  from  the  array  CONDUC.  The  CONDUC  array 
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has  three  subscripts:  the  first  one  identifies  the  material  code,  the  second 
subscript  equals  1  for  the  function  arguments  and  equals  2  for  the  function 
values,  and  the  third  one  corresponds  to  the  points  in  the  function  table, 
beginning  with  the  subscript  equal  to  2.  The  array  element  CONDUC (MAT , 2 , 1 ) 
is  not  used.  The  first  assignment  statement  is  used  to  compute  MVAL,  the 
subscript  of  the  last  data  point.  The  block  IF  is  used  to  determine  if  the 
temperature  is  within  the  function  arguments.  If  the  temperature  is  not 
within  the  function  arguments,  CVAL  is  assigned  the  function  value  corresponding 
to  the  argument  closer  to  the  temperature.  If  the  temperature  is  within  the 
function  arguments,  the  DO  loop  is  used  to  find  the  argument  interval  containing 
the  temperature  TEMP.  The  IF  statement  in  the  loop  is  used  to  branch  to  the  end 
of  the  loop  until  the  correct  interval  is  found.  The  assignment  statement  in 
the  loop  is  used  to  perform  a  linear  interpolation  on  the  CONDUC  array.  The 
linear  interpolation  for  CVAL  is  written  mathematically  as: 


where 


y^  »  the  ith  function  value  from  the  CONDUC  array 
xt  “  the  ith  argument  value  from  the  CONDUC  array 
t  =  the  temperature  TEMP 

The  GO  TO  statement  is  used  to  branch  out  of  the  loop  after  a  value  for  CVAL 
has  been  interpolated. 


The  next  statements 


100  MV*L  =  MNT(SPeCIF(*l»TL.l.t))  ♦  1 

IF  (TtMP  .LE.  St'ECIF(««Tu.l,2))  then 
SV»L  =  SKECIF 

ELSE  IF  (TENH  .GE.  SPEC  IF (N» TL, 1 ,MV*L) )  THEN 
SV*L  s  SPECIF (h*Tl.£>MV«L) 

ELSE 

DU  150  I  *  2,MV*L 

IF  (TEMP  .lE.  SPECIF(m*Tl.1,1))  THEN 

SV»L  *  SPECIF(FATL.«:,1)  -  (SpECIFIMATL.I.I)  '  TEMP)  • 
S  (SPECIF(MAlL,2,n  -  SPECIF(MATl,E,I-1))  t 

S  (SPECIFCMAlL.l.I)  -  SPECIF(MA1l,1,I-J)) 

GO  TO  200 
END  IF 
150  CONTINUE 
ENU  IF 

200  continue 

RETURN 

END 


are  used  to  interpolate  a  value  for  SVAL,  the  specific  heat,  from  the  array 
SPECIF.  This  array  contains  both  arguments  and  function  values  in  the  same 
arrangement  as  the  CONDUC  array.  The  linear  interpolation  routine  is  identical 
to  the  one  used  in  the  preceding  group  of  statements.  Interpolation  for  SVAL 
is  written  mathematically  as: 
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where 


=  the  ith  function  value  from  the  SPECIF  array 
X.  =  the  ith  argument  value  form  the  SPECIF  array 
t  =  the  temperature  TEMP 

The  RETURN  and  END  statements  are  used  to  return  control  to  Subroutine  RAT 
and  end  this  program  unit. 
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PROGRAM  QKPK 

This  program  requires  two  input  files:  a  formatted  file  read  by 
Subroutine  RDATA  and  a  binary  LOS  file  for  one  view,  which  is  the  output  of 
either  Program  CONMAG,  FASTGEN,  or  SHOTGEN.  These  data  are  used  to  compute 
from  three  to  eleven  penetration  times  for  each  critical  encounter  along  each 
shot  line:  the  minimum  time  needed  to  achieve  a  nonzero  kill  probability, 
the  minimum  times  needed  to  achieve  from  zero  to  eight  intermediate  kill 
probabilities,  the  minimum  time  needed  to  achieve  a  maximum  kill  probability 
(less  than  or  equal  to  1.0),  and  the  time  needed  to  completely  perforate  the 
component.  This  Information  is  written  on  a  binary  output  file  which  is  used 
by  Program  PEAKAY  to  compute  component  kill  probabilities  and  vulnerable 
areas.  Program  QKPK  is  also  used  to  compute  and  print  a  breakdown  of  critical 
shot  lines  by  times  needed  to  reach  maximum  Pk.  A  critical  shot  line  has  at 
least  one  encounter  with  a  critical  component.  A  shot  line  reverse  flag  is 
provided  so  that  a  user  may  obtain  data  for  the  opposite  view  without  gener¬ 
ating  a  new  LOS  tape. 

The  first  set  of  statements 


p«-.Ro 

cnp-OM  iC'"'p(Sou),«»'K«;on),ifi.esoc).n»»(snn),  lAMAtsno), 

»  I  r'n(bOu),NnPKTs(soo),i>i-PtH(l(i,bOii),p«VAL  ( in.SOO), 

»  Mt'.lf  <*>W0)  ,I»VPS,1II{S0H,  I  Y(SnO) 

C0>'"0V  TXIMFI  170), 170), riNCH 

/vlut  /  Nnro>*p,Ft  X,  irLA(;,PFAKf  ,hCKn 
fnp»nAi  /taii/  iinsc  1 00 ) ,  jnT(  1  on)  ,MrMC,nH0(  I  oil) 

/TMiFf/  PkTIME  (  10,?AV),p|  S(P(I0),  )  I  (?00) 

COxA-nN  /FPIM/  «»IFS(lflU,2S),FTJx(?S),F*C>'(?S),FXM(?S),ir»1AX, 
»  T1aA>(?S),a,4XT(?7),H|MAX 

COXXON  /II'MIS/  IHn,|xH,nK,inilT 
Cn-XON  /S17F.S/  ITC,IFx,JF*x 
OU-EnSIOA.'  rxiiAT  1  (SUO)  ,  THRAIZISOO) 


is  used  to  declare  the  variable  PKNBR  as  an  integer,  to  allocate  common 
storage  area  for  data  transfer  among  subroutines,  and  to  declare  array 
dimensions. 


The  statements 


I 


0*1*  i7C,*AAXENc,PKMnu,)Fx,iFxx  /SCO ,  1 00 , 1 0 , es , ?7/ 

0*7*  I«0,II>«,IIN,IOU7  /S,6,1,2/ 

0*T»  tA»XT  /?7«0/ 

D«T*  MAT  (<I9<))/1/,x*T(S00)/2/,  IFO C  «9<» ) /O/,  I FC  (IO 0  ) /O/ 

0*7*  n  *»(  099)70/.  17*0(500) /O/.  I*Nt(<l99  )/2/,  i*N*rsno>/i/ 

0*7*  7IN1 7(999)71 t 0.7, 7INI7 (500) 735.7, I  7(999) 707,  17(500)707 

0*7*  9HPF(999),RHnF(500>71.,1.7 

B»7*  lECHO  717 


are  DATA  statements  which  are  used  to  initialize  the  variables  whose  names 
appear  in  the  DATA  statement  lists.  The  first  DATA  statement  is  used  to 
Initialize  variables  with  values  of  current  array  dimensions.  The  second 
DATA  statement  is  used  to  initialize  the  input  and  output  device  numbers. 

The  next  DATA  statement  is  used  to  zero  the  MAXT  array.  The  DATA  statements 
for  the  499th  and  500th  positions  in  the  component  information  arrays  are 
used  to  assign  default  component  characteristics.  These  data  will  be  used  if 
the  shot  line  data  (binary  file)  describe  an  encounter  with  a  component  which 
has  no  component  Information  input  (formatted  file) .  The  final  DATA  statement 
is  used  to  set  the  echo  flag  so  that  all  binary  output  will  also  be  written 
at  the  line  printer. 
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The  statements 


OPf'k  (lBO,FILFs'UKPKn»TA*,BI:CFK='l>S'.“A»HEf:L=80,P»r)='TFS') 

OPE*(  (If.P.FlLE*  •UKPKPBINT'.PECFMs'OS'.CARBIARE  T  OMTHUL  = 'nRTR  AN  *  ) 
OPEN  (IlN,FTLFs’OKPmAPF.lN*,FnRI«»*IINFn«PAT'IEU'»MECFMs'»(ABIAflLE*) 
OPEN  ( lOUT, F ILE  = ‘OKPA T APE OUT FORMS 'UNFORMAT TED ',RECFM=' VAR  I  able*) 


are  used  to  connect  logical  units  to  the  input  and  output  files  and  to 
establish  the  connection  properties  between  each  unit/file  pair. 


The  statements 


,  call  ROATA 

I  IF  (STHAA  .LE.  0)  THEN 

nTHAA  s  IFMAA 
00  J  I  X  WNTmaA 
tIMAAd)  *  FTIM(I) 

.  3  continue 

I  end  if 


are  used  to  call  Subroutine  RDATA  to  read  all  formatted  input  for  this  program, 
and  to  fill  the  TIMAX  array.  The  time  intervals  for  shot  line  breakdown, 

TIMAX,  is  an  optional  input.  The  IF  statement  is  used  to  determine  if  this 
I  input  was  included.  If  the  values  are  not  included,  the  DO  loop  and  assignment 
I  statements  are  executed.  The  result  is  that  array  TIMAX  contains  values  equal 
to  the  time  intervals  from  the  flux  distribution  and  NTMAX  equals  the  number  of 
time  intervals. 


The  statements 


HEAP  (IlN)  A2,El..GRTn,IDVEH,»MAX,Y«IN,ZMAX,2MIN,RADEAP 
IF  (CINCH  .LE.  0.)  CINCH  s  l.o 
CMETER  *  CINCH««.02S* 

GRID  =  GRID  •  CINCH 
Y»AX  s  YNAX  •  CINCH 
Y“IN  a  TWIN  •  CINCH 
ZMAX  s  ZmAa  •  CINCH 
ZMIN  s  ZMTN  «  CINCH 


are  used  to  read  the  first  record  from  the  binary  file  and  to  convert  the 
minimum  and  maximum  viewing  plane  coordinates  and  grid  sizes  to  Inches.  The 
conversion  factor  CINCH  is  assigned  a  default  value  of  1.0  by  using  the  first 
IF  statement  whenever  it  has  been  read  with  a  value  less  than  or  equal  to  0.0. 
The  factor  for  conversion  from  input  units  to  meters,  CMETER,  is  also  computed. 


The  next  statements 


IF  (IRVPS  .FU.  I)  THEN 
y:  a  -YmAA 
YMAX  a  -YNIN 
YNIN  a  Y1 
EL  a  -EL 
AZ  a  AZ  -  INO. 

IF  (AZ  .lT.  0.)  AZ  a  AZ  *  3N0. 
FNP  IF 


are  used  to  reverse  the  viewing  plane  data  whenever  the  shot  line  reverse  flag 
is  set.  The  first  IF  statement  is  used  to  test  IRVRS,  the  shot  line  reverse 
I  flag.  If  it  is  equal  to  I,  the  flag  is  set  and  the  assignment  statements  are 
used  to  Interchange  and  negate  the  minimum  and  maximum  y-coordinates  and  to 
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compute  the  reversed  view  attack  angles.  The  last  IF  statement  is  used  to 
maintain  a  positive  value  for  the  azimuth  attack  angle. 

The  statement 

C»L\.  ,  )f  i;,  IlAH,  1  »►•»,  1  INn  PTH, 

»  P«  W«L  .  I  TC  .u«  •"Bw,  IH  I  .UHIII-  ,  1  V,  III) 

is  a  CALL  statement  used  to  invoke  Subroutine  FSORT  which  sorts  the  component 
information  arrays  into  ascending  order  by  component  number.  The  component 
numbers  are  the  values  in  array  ICOMP.  The  sort  subroutine  maintains 
correspondence  among  all  the  array  arguments  by  subscript. 

The  statements 

l;n  sn  J  I  I.MICO'IP 

»,oiTE  (I*u, tonal  icnMPt.ii.iFr.f.il.MttlJj.itiim.tl.ia'iK  I), 

»  Tl'JI  T(  J),  IHINFL  M)  .BHOFIJ),  IY(  J) ,  lu(  J) ,  J,  (DEPiMf  I ,  J  ) , 

S  PKV4L  f  I  (.1  )  ,  III  .MOP'ITSt  J)  ) 

nn  an  i  =  1 , nnuNTS ( J ) 

OFPTHd.j)  =  OEPTH(I.J)  •  C“ETFR 

ao  CnNTI«iUf 

THINFI  (J)  r  IHIMFL(I)  •  CMFIPP 
50  CPnIIMIE 

are  used  to  print  the  component  information  arrays  on  the  line  printer  and  to 
convert  DEPTH  and  THINFL  values  to  meters.  The  first  write  statement  is  used 
to  print  the  heading.  The  outer  DO  loop  is  used  to  print  the  component  infor¬ 
mation  and  to  convert  the  influence  mode  wall  thickness  THINFL  to  meters.  The 
inner  DO  loop  is  used  to  convert  each  laser  penetration  depth  DEPTH  to  meters. 

The  next  statements 


ijEi.C  s  0 
IFILL  S  0 
iff-  :  IF-H»  -  I 
IFKM  :  IFXX  -  1 

"PITE  (TOUT)  47.EL.RKII).  lOVFM,  YMAX.rxiN.  ZM4X.  ^BTIJ.NOCnMP 

•tPUE  (imil)  (  IC0"Pf  I  ),  IFG(I).IY(I).  IIUD.MOPNTSd  )  .  (PKV4L  r.l,  I). 

»  J  =  1  .NOPNTS  ( 1  ) ) .  I  =  1  »Nf)CO“l>)  .  Ihvms.  IFMaX.IFTIMID.FXCMID.Isi. 

S  TFikfx) 

IF  (IFCHO  .Fn.  U  IHIK 
WRITE  (iKR.moO)  inuT 

WRTTF  Clwu.lOia)  47,EL.RKin.II)VEH.T4;4X.YM.N.7«4X,7'<IN.N0C0wP 
kHITF  (IWR.IOJS) 
no  60  I  =  i.NncO'np 

"RTTE  (IWH.1016)  TCn«P(I).iFG(I).iy(I).ni(I). 

S  NORMS!  I  )  .  (PKV4L(  J.  T).  Jal.NlIPNTSd)  ) 

60  CONTINMf 

WKTTE  dwfa.1017)  IRVPS.IFvt,,(FTIMd).FxCMd),l  =  I.IFNAX) 

ENI'  IF 

are  used  to  initialize  four  variables,  to  write  the  first  two  records  of  the 
binary  output  file,  and  if  the  echo  flag  is  set,  to  print  the  binary  output 
values  on  the  line  printer.  The  variable  NENC  is  used  to  count  the  number  of 
encounters  for  each  shot  line  and  the  variable  IFILL  to  count  the  number  of 
elements  in  the  binary  output  arrays.  The  first  two  assignment  statements 
are  used  to  set  these  two  counters  equal  to  0.  The  variable  IFM  is  used  to 
reference  the  next  to  last  element  in  the  flux  arrays  and  variable  IFXM  is 
used  to  reference  the  next  to  last  element  in  the  array  MAXT,  which  counts 
the  critical  shot  line  breakdown.  The  first  binary  WRITE  statement  is  used 
to  write  the  viewing  plane  description  on  the  first  record  of  the  binary 
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output  file.  The  second  WRITE  stateaent  to  device  lOUT  is  used  to  write  the 
component  number  array,  criticality  flag  array,  system  number  array,  multiple 
vulnerability  flag  array,  reverse  flag,  number  of  points  in  the  flux  distri¬ 
bution,  and  flux  distribution  with  time  intervals.  The  block  IF  is  used  to 
print  the  binary  output  values  on  the  line  printer  when  the  echo  flag  is  set. 

The  statements 

too  cnf'TiNue 

REiO  (IIN)  (nUM,(SHa.J).I  =  1.2).(JH(I,J),Isl,S),J»l,t70) 

on  110  J  s  1,170 

are  used  to  read  the  next  record  of  LOS  data  and  to  initiate  a  DO  loop  to 
process  these  data.  The  LOS  data  on  the  binary  input  file  are  arranged  in 
groups  of  170,  and  are  stored  in  170  consecutive  array  locations  by  using  an 
implied  DO  loop.  Consequently,  a  DO  loop  must  be  executed  170  times  to 
process  each  set  of  LOS  data.  When  the  DO  loop  execution  has  been  completed, 
a  GO  TO  statement  is  used  to  return  to  Statement  100  so  that  the  next  set  of 
LOS  data  may  be  read  and  processed. 

The  statements 

IF  (JH(?,.I)  .FO.  OJ  GO  TO  5000 

icons  s  Moo(jH(i,j),io) 

nfnc  s  nenc  ♦  1 

IF  (NFnC  .07.  100)  GO  in  sjo 

are  used  to  test  for  the  end  of  view  indicator,  unpack  the  end  of  shot  line 
indicator,  increment  the  number  of  encounters,  and  test  for  a  bounds  violation. 
The  first  IF  statement  is  used  to  test  for  an  end  of  view,  JH(2,J)  =  0,  and  if 
true,  causes  a  branch  to  Statement  5000.  This  is  the  normal  exit  from  the  LOS 
data  processing  loop.  The  assignment  statement  for  the  variable  ICODE  uses 
the  FORTRAN  MOD  function  to  unpack  the  right-most  digit  of  JH(1,J).  The  last 
two  executable  statements  increment  NENC,  the  number  of  encounters  per  shot 
line,  and  branch  to  Statement  530,  where  a  fatal  error  message  is  printed  if 
NENC  is  greater  than  100.  If  NENC  is  small  enough,  the  program  continues  with 
the  next  set  of  statements. 

These  statements 

JLOSINFNC)  =  FLnal(JM(5,j))  •  0.01  •  C»-ETEH 
JHTiNEfC)  * 

are  used  to  compute  the  line  of  sight  thickness  in  meters  from  JH(3,J)  and 
store  it  in  array  XLOS.  The  last  assignment  statement  is  used  to  store  the 
component  number  for  encounter  NENC  in  array  JHT. 

The  statements 

IF  (t»VOS  .Fl).  ni  THEN 

OBJINFND  s  FLOaTl  JM(a,J)1  •  o.ool 
ELSE 

IiGij(nENC)  »  FLOaKjHtS.J))  •  O.OOl 
EWO  IF 

are  used  to  store  the  secant  of  the  entrance  obliquity  angle  in  array  OBQ. 

The  IF  statement  is  used  to  test  the  shot  line  reverse  flag.  If  the  shot 
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line  is  not  reversed,  (IRVSR  =  0),  the  program  uses  JH(A,J)  for  the  secant 
of  the  obliquity  angle;  otherwise  the  program  uses  JH(5,J).  Since  the  binary 
LOS  file  actually  stores  1000  times  the  secant  value,  the  JH  array  element 
value  is  multiplied  by  0.001  to  obtain  the  true  secant  value. 

The  statement 


IF  tICOOE  .Efl.  9)  THEN 

is  used  to  test  for  the  end  of  shot  line  flag.  If  ICODE  does  not  equal  9, 
the  end  of  the  shot  line  has  not  been  reached  and  the  program  bypasses  the 
block  IF  and  continues  execution  at  Statement  110,  the  last  statement  in 
the  shot  line  data  processing  loop.  Then,  the  program  will  branch  to  process 
more  shot  line  data.  When  the  end  of  the  shot  line  is  reached,  the  next 
statements  will  be  executed. 

These  statements 


IF  (IRVRS  .FO.  1)  c»LL  REVRSEtJ) 

00  170  IR  =  1,IFM»X 
PEAKF  s  F*C'<<IR) 

FL«  =  FXM(I») 

CALI  OAT  <RATF5(t.lP|,IR,MAXENC) 
IF  (IFlai;  .ft),  n)  GO  I')  l«0 
170  COMIMif 


are  used  to  reverse  the  shot  line,  if  required,  and  to  compute  the  penetration 
rate  for  each  flux  level.  The  IF  statement  is  used  to  test  the  shot  line 
reverse  flag,  and  if  it  is  set,  to  call  Subroutine  REVRSE,  which  is  used  to 
interchange  the  order  of  the  components  along  the  shot  line.  The  DO  loop  is 
used  to  compute  the  penetration  rate  at  each  level  of  flux.  Assignment 
statements  for  variables  PEAKF  and  FLX  are  used  to  store  the  flux  level  in 
COMMON  /ONE/.  These  values  are  accessed  by  either  of  the  subroutines  PROPY 
or  TABLE,  depending  upon  which  is  called  by  the  Subroutine  RAT.  The  CALL 
statement  is  used  to  invoke  Subroutine  RAT  which  computes  the  rate  of 
penetration  at  the  IRth  flux  level  for  each  component  along  the  shot  line. 

The  argument  array,  RATES,  is  used  to  store  the  penetration  rates.  The  first 
subscript  for  RATES  is  the  encounter  number  and  the  second  subscript  is  the 
flux  index.  The  variable  IFLAG  is  computed  in  Subroutine  RAT  and  equals  the 
number  of  the  last  critical  encounter.  If  IFLAG  equals  0,  there  are  no  critical 
components  on  the  shot  line  and  the  IF  statement  is  used  to  branch  out  of  the 
loop. 


The  statements 


IRO  IF  ILL  =  IF  n  I  ♦! 

Pa  r  I ''F  (  I  ,  U  ill  )  s  •  riNCti 

PAl  I  VF  (.),  IF  ILL  )  s  SH(P.J)  •  CINCH 
i)fi  190  A  r  i.PKWHR 

PAIt-F  (A, IF  ILL)  =  0,(1 
190  CnMINHF 

PL  S(  IF  II  I  I  s  0. 

I  I  (  IFlLl  )  =  WCWI 1 


are  used  to  store  the  next  group  of  data  in  the  binary  output  arrays.  The 
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first  assignment  statement  is  used  to  increment  IFILL,  the  subscript  for  the 
binary  output  arrays.  The  shot  line  y-  and  z-coordinates  are  converted  to 
inches  and  stored  in  the  first  two  elements  of  each  row  of  the  PKTIME  array. 
The  remaining  elements  in  each  row  are  set  to  0.0  in  the  DO  loop.  A  0.0  is 
assigned  to  array  PLS  and  the  number  of  critical  encounters  on  the  shot  line 
is  stored  in  array  II  by  executing  the  last  two  assignment  statements. 


The  statements 


IF  (^'CHTI  .Fn.  0)  KlXKtrxX)  s  MiXTflFxx)  ♦  I 
IF  (IFILL  .F(l.  ?00)  IHFN 

««irE  (IllllT)  ((PKTI>«E(IX,JX),IX*l,IO),PLSf.I*).IlC.IX), 
t  JXsI.PUO) 

IF  (leCHO  .£().  1) 

S  «»ITE  (I.»H,1002)  t(PKTlHE(lx,JX),IX  =  l,10),l>LS(JX), 

s  II (Jx).jxsi.2ao) 

IFILL  =  0 
END  IF 

IF  (IFl»G  .ne.  fl)  IMEH 


are  used  to  count  the  number  of  noncritical  shot  lines,  write  the  binary  output 
I  arrays  (if  they  are  full),  and  fall  through  to  the  end  of  the  LOS  data 

processing  loop  (if  the  shot  line  has  no  critical  encounters) .  The  first  IF 
statement  is  used  to  add  1  to  the  last  element  in  array  MAXT,  the  number  of 
noncritical  shot  lines  if  NCRIT,  the  number  of  critical  encounters,  equals 
0.  The  next  IF  statement  is  used  to  determine  if  the  binary  output  arrays 
are  full.  When  IFILL  equals  200,  the  arrays  are  written  to  device  lOUT,  using 
the  binary  WRITE  statement  and  echoed  to  the  line  printer  if  the  echo  flag  is 
set.  The  subscript  IFILL  is  reset  to  0  after  the  WRITE  statements  are 
executed.  The  binary  output  steps  are  skipped  if  IFILL  is  less  than  200.  The 
last  IF  statement  is  used  to  determine  if  there  are  no  critical  encounters  and 
I  to  bypass  the  block  IF  and  continue  execution  at  Statement  110. 


The  next  statements 


TtlSEO  =  0. 

IM«X  s  0. 

TMAXl  s  l.EJO 
iPtisen  2  1 

«0l  CONTINUE 

on  «<»9  II  c  l.NENC 


are  only  executed  if  the  shot  line  has  at  least  one  critical  encounter.  They 
are  used  to  initialize  four  variables  and  to  initiate  a  DO  loop  which  iterates 
for  uvery  encounter  on  the  shot  line. 

The  statements 


NRAR  z  0. 

IPNOw  s  IMIlSEO 
TNOW  z  TUSEO 
DISLFT  =  XLOSdl) 


are  used  to  initialize  four  variables  and  are  the  first  steps  in  the  encounter 
loop.  The  variable  REAR  is  the  penetration  rate  and  IRNOW  is  a  subscript  for 
the  flux  distribution  array.  TNOW  represents  the  time  used  up  to  the  present 
step.  DISLFT  is  the  distance  remaining  to  be  penetrated  in  encounter  II. 
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The  statements 

410  CONTINUE 

r»TF  s  MATESdlflRNOw) 

IF  (hate  .LF.  0.)  GO  TO  UiO 

IF  (OISLFT  .LF.  (FTlKtlONOK)  -  TNOI*)  •  HATE)  GO  TO  420 
OISLFT  r  OISLFT  -  (FT1M(  I»Nn*l)  -  TK'OwIaRATF 
INQM  r  FTl*<(IONO<») 

IRNOo  *  IRNOK  ♦  1 
IF  (IPNOW  .LE.  IFmaX)  CO  TO  410 
laMO*  =  1HN04  •  1 


are  used  to  compute  the  time  step  during  which  penetration  ends  for  the  Ilth 
encounter  on  the  shot  line.  The  first  assignment  statement  is  used  to  set  the 
variable  RATE  equal  to  the  penetration  rate  for  the  Ilth  encounter  and  the 
IRNOWth  time  step  in  the  flux  distribution.  The  first  IF  statement  is  used  to 
branch  to  Statement  430  when  the  rate  is  0.00.  The  second  IF  statement  is  used 
to  branch  to  Statement  420  if  the  penetration  is  completed  during  time  step 
IRNOW.  If  both  tests  fail,  two  assignment  statements  are  used  to  compute 
DISLFT,  the  distance  left  to  penetrate  after  time  step  IRNOW,  and  TNOW,  the 
time  after  this  time  step.  Next,  IRNOW  is  incremented  and  the  IF  statement  is 
used  to  branch  back  to  Statement  410  to  compute  penetration  for  the  next  step 
in  the  flux  distribution.  If  these  steps  iterate  through  the  entire  flux 
distribution  without  complete  penetration,  the  last  IF  statement  fails,  and 
IRNOW  is  decremented  so  that  it  points  to  the  last  step  in  the  distribution. 

The  statements 

420  continue 

TNOn  *  TNOn  ♦  PISLFT  /  BATE 
TI.OS  s  TnOia  -  TIISED 
BBAB  s  XLUSdl)  /  TLOS 


are  used  to  compute  TNOW,  the  time  of  complete  component  penetration,  and  RB.AR, 
the  average  penetration  rate  for  the  encounter.  These  steps  are  bypassed  if 
the  penetration  rate  becomes  0.0  before  complete  penetration. 


The  statements 


4J0  continue 

1  S  J“1  (ID 

IF  (IFGdl  .‘lE.  0)  Then 

ifill  s  ifrl  ♦  I 
PLSUFILL)  *  TNOW 
II  (IFlLL)  s  JMTdl) 

THWATId)  =  ANAX)  (THUAT  I  (II.nEBTHd,  I  )  •  RHOdl)  ! 

*  XlONdd) 

THWATPd)  s  AMAXldMBAIEdl.OFPTHtNnHNTRd),!)  • 

*  OBN(d)  /  «L''5dn) 


are  used  to  store  the  data  for  complete  penetration  in  the  binary  output 
I  arrays.  If  the  encountered  component  is  a  critical  one,  the  statements  in 
1  the  block  IF  are  executed;  otherwise  the  program  continues  execution  at 
Statement  110,  the  last  statement  in  the  shot  line  data  processing  loop. 

Three  assignment  statements  are  used  to  increment  IFILL,  to  store  the  time 
for  complete  penetration  in  the  PLS  array,  and  to  store  the  component  number 
location  in  array  II.  The  values  for  insertion  in  the  THRATl  and  THRAT2 
arrays  are  computed  using  the  AMAXl  function  and  are  used  to  store  the  ratios 
I  DEPTH(1)*0BQ/XL0S  and  DEPTH (NOPNTS) *OBQ/XLOS  for  the  encounter  with  the 
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smallest  non-zero  line  of  sight  thickness  for  the  Ith  component. 


The  statements 


UUO 


% 


uSo 


un  auo  K  s  i,in 

PKTI  ■IKK, (FILL)  =  O.O 
CPNTIHJf 

IF  .BT.  n.)  THFN 

on  '450  K  a  i.mnPMTSd) 

PKIIMF(K.rFILL)  *  DFPTMCK.I)  •  nROdl)  /  ♦ 

TUSEI) 

CniaTINiiF 


are  used  to  compute  and  store  the  time  required  to  penetrate  to  the  specified 
depth  to  obtain  the  associated  Pk.  The  first  DO  loop  is  used  to  initialize 
the  PKTIME  array  to  zero.  The  IF  block  is  executed  if  the  average  penetration 
rate  for  the  component  is  greater  than  zero.  The  DO  loop  in  the  block  IF  is 
used  to  compute  the  total  time  required  to  penetrate  the  component  to  obtain 
the  Pk  values  entered  in  the  array  PKVAL. 

The  statement 

IF  apKTi-KtiopnTSin.iFiLL)  .lf.  ptsdFiLD) 

»  .Ffin.  (p«v4i  (wop'.'rsd),!)  .Ffj.  1.0)) 

t  TM/lKt  s  AM(MtdM>&(I.PKTIUF(NnP<.T<I(  D.IFILD) 

is  used  to  compute  TMAXl,  the  earliest  time  that  a  component  Pk  equal  to  1.0 
occurs  on  this  shot  line.  The  IF  statement  is  used  to  exclude  encounters  which 
complete  penetration  before  attaining  Pk  =  1.00. 

The  next  statements 


IF  (PFVALcmpvtsd).!)  .Eo.  1.0)  then 

T«A*  s  AI-AF  t  (TPAX,  AHTNl  (  TN()»,PKTI>'e  (NOP'wr  S  ( I  )  , 

*  IFILL))) 

FLse 

T«4X  a  APAXKTMAX.AXINldNdW.PLSdFILI  ))) 

ENO  IF 

are  used  to  compute  TMAX,  the  minimum  time  needed  to  process  all  components  on 
this  shot  line.  The  block  IF  statement  determines  whether  it  is  possible  to 
guarantee  a  kill  of  a  component  with  a  single  shot  line.  If  so,  the  assignment 
statement  in  the  THEN  branch  is  executed;  otherwise,  the  ELSE  branch  is  used. 
The  AMINl  function  is  used  to  select  the  minimum  time  to  complete  the  current 
encounter.  The  AMAXl  function  is  used  to  select  the  greatest  time  for  all 
encounters  by  comparing  the  value  of  TMAX  from  all  previous  encounters  with 
the  time  for  the  current  encounter.  A  completed  encounter  requires  complete 
penetration  of  the  component  or  a  Pk  equal  to  1.0,  whichever  occurs  first. 


The  statements 


IF  dFIl  L  .EO.  200)  then 

"«ITE  (TOUT)  dP"TIMEdx,j,),ix*|,|n),PL3(JX). 

ll(Jx),jxsl,;(in)  ^  " 

IE  (IFCMO  .FQ.  I) 

'•pITE  U'<R,I002)  dPFTiMf  (  rx.  J«  ) .  ixrt ,  1  n), 
PL3(JX),n(JX).JXZ|,2U0) 

1EILL*0 
EPD  IF 
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EWD  IF 
EMO  IF 

FUSED  z  Tmnx 
IPUSEO  z  IRNON 
COnTIMuF 

are  used  to  write  another  record  of  the  binary  output  file,  if  the  binary 
output  arrays  are  full,  and  to  end  the  encounter  DO  loop.  The  block  IF 
statement  is  used  to  determine  when  the  binary  output  arrays  are  full.  When 
they  are  full,  the  binary  WRITE  statement  is  executed  and  if  the  echo  flag  is 
set,  the  formatted  WRITE  statement  is  executed.  The  output  array  index,  IFILL 
is  reset  equal  to  0  following  the  WRITE  statement  execution.  The  block  IF 
statements  determining  whether  the  binary  output  arrays  are  full,  whether  the 
average  penetration  rate  is  greater  than  zero,  and  whether  the  encountered 
component  is  a  critical  one  are  closed  with  the  three  END  IF's.  The  next 
assignment  statement  is  used  to  set  TUSED  equal  to  the  time  for  complete 
penetration  of  this  encounter  and  the  last  assignment  statement  is  used  to  set 
IRUSED  equal  to  the  flux  step  number  during  which  complete  penetration  was 
attained.  Statement  499  is  used  to  end  the  encounter  DO  loop. 

The  statements 


T«AX1  z  AMINKTMAX.TMAII) 

DO  500  Irl.NTMAX 

IF  (T^AXl  .LE.  T1m»x(1))  then 
MiXI  (1)  z  «AXH1)  ♦  1 
GO  TO  510 
F«in  IF 

500  continue 

••AXTdFXM)  z  MAXTdFXM)  ♦  I 

510  continue 

are  executed  after  each  shot  line  is  processed  and  are  used  to  compute  the 
breakdown  of  the  shot  line  by  the  time  required  to  achieve  maximum  Pk.  First, 
TMAXl  is  recomputed  to  be  the  minimum  of  the  time  needed  to  completely  process 
the  shot  line  and  the  time  needed  to  reach  a  component  Pk  =  1.00.  The  DO  loop 
is  then  used  to  cycle  through  the  time  intervals  for  shot  line  breakdown.  The 
IF  statement  is  used  to  find  the  time  interval  I  in  which  TMAXl  falls.  After 
the  time  bin  I  is  found,  the  assignment  statement  is  used  to  increment  MAXT(I) 
and  the  GO  TO  statement  is  executed  to  branch  out  of  the  loop.  The  assignment 
statement  following  Statement  500  is  executed  only  if  TMAXl  is  greater  than 
all  of  the  time  intervals  for  shot  line  breakdown.  It  is  used  to  increment 
the  next  to  last  array  location  of  MAXT. 

The  statements 


nENCzO 
END  IF 
FND  IF 
110  rONTlNUE 
r.n  TO  100 

represent  the  end  of  the  LOS  data  processing  loop.  The  assignment  statement 
is  used  to  reset  the  number  of  shot  line  encounters  to  0  and  is  executed  after 
a  complete  shot  line  has  been  processed.  The  END  IF  statements  close  the 
block  IF  determining  whether  the  shot  line  has  any  critical  encounters  and 
whether  the  end  of  the  shot  line  has  been  reached.  Statement  110  is  used  to 
end  the  DO  loop,  which  is  executed  for  each  of  the  170  LOS  data  array  elements 
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The  GO  TO  statement  is  used  to  branch  back  to  read  and  process  a  new  set  of  LOS 
data. 


The  next  statements 


5000  CO'^TINUf 

IFILL  »  ifill  ♦  I 
on  120  J  X  TFTLL.200 
IKJ)  a  <i<»99 
120  coMTiNoe 


are  executed  after  an  end  of  view  has  been  detected  in  the  binary  LOS  input 
data.  The  first  assignment  statement  is  used  to  increment  IFILL,  the  number 
of  values  in  the  binary  output  arrays.  The  DO  loop  then  is  used  to  fill  the 
remainder  of  the  binary  output  array,  II,  with  an  end  of  view  flag,  9999. 

The  statements 

WWITE  (IQlin  ((PKTIME(IX,J)O,lx*i,H)),PLSfJ*),n(.IX),Ji(  =  t,200) 
tf  (IFcnn  .f'j.  1)  rxFN 

.ofTF  (!•«, 10(12)  <(OKTT“Frt».J)<).»«al.l0)» 

»  PI  S(J»),Il(J«),.l»al.rFILl-l> 

-3TTF  (I«-,|()01) 

£«•  IF 

are  used  to  write  and  echo  the  last  binary  output  record.  The  end  of  view  is 
indicated  in  this  set  of  200  array  elements  by  the  value  9999  in  arruy  II.  The 
block  IF  is  used  to  test  the  echo  flag;  and,  if  it  is  set,  to  print  the  shot 
line  data  before  the  end  of  the  view  occurs  and  to  print  an  end  of  echo  message 
using  formatted  WRITE  statements. 

The  next  statements 


ftpiiF  (i»w>ioo*i)  MtxrriFKx) 
»  s  44 X  r  <  IF  vx) 

TF  s  0* 

JF  3  f 

Ft  3  FlCM(l) 

no  s?o  I  s 

TO  S  TF, 

TF  s 
FO  3  FC 


are  used  to  begin  assembling  the  breakdown  of  critical  shot  lines  by  times 
needed  to  reach  maximum  Pk.  The  first  WRITE  statement  is  used  to  print  the 
number  of  noncritical  shot  lines  and  the  heading  for  shot  line  breakdown.  The 
next  four  assignment  statements  are  used  to  initialize  four  variables:  NSL  is 
used  to  count  the  critical  shot  lines,  TE  is  the  end  time,  JF  is  the  subscript 
for  the  flux  table,  and  FE  is  the  end  flux  level.  The  DO  statement  is  used  to 
initiate  a  loop  to  iterate  through  each  time  interval  for  shot  line  breakdown, 
and  the  next  three  assignment  statements  are  used  to  determine  begin  time,  end 
time,  and  begin  flux  level  for  the  Ith  time  interval. 

The  statements 

IFF  s  JF 

51P  .1  »  JFF.IFM 
JF  I  J 
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IF  fTF  .LF.  FTI'U.m  RO  TO  5JO 
IF  (TE  .LE.  FTr<(J*t))  THEN 
JF  «  J  ♦  I 
cn  TO  519 
ENt)  IF 

510  continue 

JF  *  IFMaf 

519  Ff  *  Fxr»(JF) 

sRITE  (IrO.lOObJ  T8tTF,FH,fE,M»XT(n 
NSL  *  NSL  ♦  MAXT(I) 

520  CO'  TINUE 

are  used  to  find  the  flux  level  at  the  interval  end  time  and  to  print  the  shot 
line  breakdown.  The  DO  loop  is  used  to  search  the  FTIM  array  to  obtain  the 
time  interval,  JF,  which  includes  TE.  The  assignment  statement  following 
Statement  518  is  executed  only  if  the  end  time  is  greater  than  all  values  in 
the  FTIM  array.  In  this  case,  the  last  flux  level  in  the  distribution  is  the 
end  flux  level.  The  WRITE  statement  is  used  to  print  the  shot  line  breakdown. 
The  variable  NSL  is  computed  in  the  last  assignment  statement  and  is  used  to 
count  the  total  number  of  critical  shot  lines.  Statement  520  is  used  to  end 
the  DO  loop  which  is  executed  for  every  shot  line  time  interval. 


The  statements 

TB  s  TE 
TF  s  1.E30 
FR  s  FE 

FE  =  FfcwIIFmax) 

fcBITE  (IhP.IOOA)  TH,rF,FB<FE,‘'kXT(lFXM> 
h»ITE  (I«9,lon)  NSL 
NSL  s  NSL  ♦  H*XT(IFXX) 
fBITE  tl<iR,10I2)  NSL 

are  used  to  print  a  summation  of  critical  shot  line  breakdowns.  The  first  four 
assignment  statements  are  used  to  compute  the  begin  time,  end  time,  begin  flux, 
and^end  flux  for  the  last  interval.  The  end  time,  TE,  is  assigned  a  value  of 
10  to  imply  that  this  interval  applies  to  all  times  greater  than  the  last 
begin  time.  Two  WRITE  statements  are  used  next  to  print  the  last  line  of  the 
breakdown  table  and  the  total  number  of  shot  lines.  The  last  assignment 
statement  is  used  to  add  the  number  of  noncritical  shot  lines,  MAXT(IFXX),  to 
the  number  of  critical  shot  lines,  NSL.  The  last  WRITE  statement  is  then  used 
to  print  the  total  number  of  shot  lines. 


The  statements 


bOITE  (IwB.lOON) 
on  600  j  *  1 ,Nncn“p 

IF  (THHATKJ)  .GT.  l.O)  THEN 

"I9ITE  (ImP.IUIO)  ICnMP(J),tHI<»Il  (J),THRAT2(J) 
fiSF  IF  (1hrat;>(j)  .r.T.  i.o)  then 
hRITE  (I»9,I0I5)  ICn»PU),THRAT2IJ) 

END  IF 

600  Cn'.TIMIE 


are  used  to  print  the  last  page  of  QKPK  output,  which  consists  of  a  list  of 
all  components  having  at  least  one  encounter  where  the  LOS  thickness  is  less 
than  that  necessary  to  achieve  a  non-zero  Pk  or  that  necessary  to  achieve  the 
maximum  Pk  for  a  single  encounter  of  the  component.  In  these  cases;  the 
component  is  completely  perforated  before  a  non-zero  or  a  maximum  Pk  value  is 
obtained.  The  first  WRITE  statement  is  used  to  test  the  arrays  THRATl  and 
THRAT2  for  each  component.  The  first  condition  of  the  block  IF  statement  is 
used  to  detect  components  with  a  LOS  thickness  less  than  that  necessary  to 
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achieve  a  non-zero  Pk.  When  such  a  component  is  found,  the  WRITE  statement  is 
executed  and  execution  then  falls  through  to  the  end  of  the  loop.  The  second 
condition  of  the  block  IF  is  used  to  test  for  a  component  with  a  LOS  thickness 
less  than  that  necessary  to  achieve  the  maximum  Pk  for  a  single  encounter  of 
the  component.  When  such  a  component  is  found,  the  last  WRITE  statement  is 
executed.  Execution  then  continues  with  Statement  600,  the  end  of  the  loop. 
Entries  in  this  table  of  output  indicate  possible  errors  in  the  selection  of 
DEPTH  values  to  achieve  the  non-zero  Pk  and  the  maximum  Pk. 

The  statements 

STnp 

S30  CD'.THIue 

nOITE  (l«R, 10081  NENC 
Str.B 


t  are  used  to  stop  the  execution  of  this  program.  The  first  STOP  statement  is 
used  to  halt  program  execution  and  is  the  normal  end  point  for  this  program 
after  completely  processing  the  shot  line  data  for  one  view.  The  statements 
after  Statement  530  are  executed  only  if  the  number  of  encounters  for  one  shot 
I  line  exceeds  100.  The  WRITE  statement  is  used  to  print  an  error  message.  The 
last  STOP  statement  is  used  to  halt  program  execution  after  the  fatal  error. 

The  last  group  of  statements 


1000  FnfcwtT  (M  THE  FOLLO'^tNi;  IS  »N  ECH(I  OF  TmE  0*TA  wOITTEN  ON  TMF  *, 

S  •'KPX  OUTPUT  file  (  inr.lCAL  UNIT  )V) 

1001  FOKXAT  COENO  OF  ECHO  OF  DATA  wRJTTEN  ON  OKPK  OUTPUT  FRE*) 

1002  fOHNAT  ( 'OmxTTmEI  J.  n.  P(.S(I),  11(1).  J»1,I0,  I»l,200'/ 
f  FOOdlFn.S.I*/)! 

lOOJ  FOSnaT  (•IVALUES  USEO  FOM  THIS  »"«'// 

»  '  ICOHP  iff,  mat  ITAB  IANA  timt*. 


5*. 

MMOF 

It 

lu 

rARi>*/ 

•npPTH( 1 J 

PKVALd  ) 

OEPTMC?) 

PKV4L(2) 

nFPTM(a) 

Pm 

OEPTUIS) 

PMVAl  (S)  V 

MX,  •OFPTH(#,) 

P<V4L(b) 

npPTMCT) 

PkVALIT) 

n€PlH(M> • 

;?X,  'OICVAI  (M) 

OFPTHCP) 

PHVAI  (9) 

oEPTH(in) 

PKVALdO)  •/) 

FORMAT 

nb,I7B31  10# 

1 1 1/2CFIS.2 

p9Fin*P/)) 

lOOS  F0i.**AT  (M  TOTAl  NU«MFP  fiF  NIIN-C"!  TIC  AL  SMOTLInES 

*  ’ohofakoown  of  rpincAL  shutlInfs  hy  ti»e  nfeofd  to  PFArn 
s  •‘•AxiHux  P8'/'o«Er.iN  tihe’.sx.'fno  ti»e'.5«, ’"Er.iN  flut'.sk. 

$  'END  Fl"» ’.Sx. 'N'lMPEH  OF  SHOTLINES') 
lOOO  FnP“AT  (IX,F10.2,S<,F10.2,5X,F10.2,JX,F10.?.10X,I10) 
lOON  Fn»M»T  COpENC  *'.110.'  which  IS  f.HFATEP  THAN  100'/ 

S  '0...Pqor.PAM  HALIINR'J 

1009  FOhHAT  I'l  THE  FtlLLOwlNG  COMPONENTS  HAVE  AT  LEAST  ONE  SHOTLINF', 

I  '  ENCOUNTER  WHERE  THF  THICKNESS  IS  LESS  THAN  PKMN  OR  PKMX....'/ 

»  OX, 'IF  thf  Thickness  is  less  than  pkmn,  component  pk  is  zero 

S  'FOR  THAT  ENCOuNIEw'/fcx.'IF  THE  THICKNESS  IS  LESS  THAN  Pkhx,  • 

»  'COMPONENT  Pk  is  LESS  Than  1.0  FOR  That  ENCOUNTER '/' OCOmPONENT ' , 
S  SX, 'maximum  value  of  Pk«N/TMICKNFSS',SX, 'maximum  value  OF 

s  'pkmx/thicknfss'i 

1010  FORM*!  llX,I<.,20X,F10.5,2SX,FI0.3) 

1011  FPhmaT  ( 'O', 2SX, 'total  NtiMBFM  nF  CHITICAL  SHOTLINFS  s'.tlO) 

1012  FONMAT  I/'OTUTAL  NiIMRER  of  shotlines  S'.TIO) 

1013  FOfcMAT  nx,l6,2|X,'LESS  THAN  I  .  0  '  ,  2 1  X  ,F  1  (1 . 3 1 

1014  FOMMAT  I'OAZ,  el,  f.Rin,  lOVFH,  YMAX,  YMlN,  ZMAX,  ZMIN,  NOCOMP'/ 
f  3FIO.S,I8.aF10,S,IR) 

1015  FORMAT  ('OlCOMP(l),  IFR(I),  lYlII,  IU(I),  NOPNTStI),  (PKVALIJ.I)', 
S  'jKl.NOP'iTSdll.tsl.NOCOHP') 

1010  format  (5IO,10F8.2) 

1017  format  ('OIRVRS,  IFMAX,  (FTiMd),  FXCMII),  Irl.IFMAX', 
t  2II0/4(2FI0. 1,5X1) 

END 


is  used  to  define  all  input  and  output  formats  and  to  end  Program  QKPK. 
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SUBROUTINE  RAT 

This  subroutine  is  used  to  compute  the  penetration  rate  for  each  encounter 
along  a  shot  line.  Program  QKPK  calls  Subroutine  RAT  once  for  every  level  of 
flux  in  the  flux  distribution.  The  computed  rates  are  stored  in  the  array 
RATES,  subscripted  by  encounter  number.  The  penetration  rate  for  a  component 
may  be  computed  by  using  one  of  three  methods:  melt-in-place  analysis,  melt- 
removed  analysis,  or  table  look-up.  The  first  two  methods  are  used  for 
metallic  components  and  use  Subroutine  PROPY.  The  third  method  uses  Subroutine 
TABLE. 

The  first  set  of  statements 


SUn«OUTINE  H*T  ( A T t b .  I M  ,  >Ei<C ) 

0I<<EivSI0N  LOC  ( lou)  ,MA1ES(KAXtl.C) 

COM»:ON  lC0Mr>(5UU)  (bOO)  ,  IFG<SOO)  ,  ITAtltSUO)  ,  1  ANA(SOO)  , 

»  fI''>><it'(i),MOH*itS{5Ou),l)EP1H(H,,5O0).PKVAL(lu,b00), 

i  «HOF  (SUOl  .IHVMS,  liJ(SOO)  .IT  (SCO) 

COppOK  IhlNfL(buu) ,Sn(E. t 7U) .JH (b, 1 70) .CINCH 
COMMON  /ONE/  NOCUMP,FL«,lFLA&,P£»Kf  .IJCHIT 
COMMON  /TbU/  IL0& ( I UO) . JHT (100) .NENC.UHOt t 00) 

COMMON  /PmOP/  ALP.KHX.CP.TMLT.XLOMOO.NATE. JCOHP, j.dp.xk.tvxp, 
t  CPL.ITEN.r 

COMMON  /SIZES/  nc.lFx.lFxx 


is  used  to  facilitate  transferring  data  among  subroutines  and  to  declare 
array  cfimensions.  The  SUBROUTINE  statement  is  used  to  accept  three  arguments: 
the  rates  array,  the  subscript  for  the  flux  distribution,  and  the  dimension  of 
the  rates  array.  The  DIMENSION  statement  is  used  to  establish  a  local  integer 
array  LOC  and  to  declare  the  argument  RATES  to  be  a  one  dimensional  array. 

Note  that  RATES  is  a  two  dimensional  array  in  the  calling  program,  but  sub¬ 
routine  RAT  can  only  be  used  to  place  values  in  array  positions  for  a  constant 
flux  index  IR,  the  second  subscript.  Five  COMMON  statements  are  used  to 
transfer  data  and  to  declare  array  dimensions. 


The  statements 


IF  (IR  .EU.  1)  then 
(Flag  s  0 

nCNIT  s  (I 

00  too  1  X  I.NENC 

JCOMP  :  JMT(I) 

CALL  BSRCHdCOMP.NUCOMP.ITC) 
LUC(I)  X  J 

IF  (IFG(J)  .NE.  0)  THEN 
NCRIT  s  nchIT  *  1 
IFlAG  X  I 
END  IF 
100  CONTINUE 

nENC  X  IFlAG 

IF  (IFLAG  .EU.  0)  RETURN 
ENO  IF 


are  executed  once  for  each  shot  line.  They  are  used  to  build  the  component 
number  link  array  LOC  and  to  count  the  number  of  critical  encounters  on  the 
I  shot  line.  The  first  block  IF  statement  is  used  to  test  the  argument  IR, 
which  equals  1  the  first  time  Subroutine  RAT  is  called  for  a  shot  line.  When 
I  IR  is  greater  than  1,  the  block  IF  is  bypassed;  otherwise,  the  DO  loop  is 
executed  for  each  encounter  on  the  shot  line.  The  encounter  component  number 
is  assigned  to  JCOMP.  Subroutine  BSRCH  is  invoked  to  search  the  component 


Change  1 


4-62 


JTCG/AS-79-V-008 


number  array,  ICOMP,  to  find  the  subscript  J  for  the  component  number  matching 
JCOMP.  The  assignment  statement  following  the  CALL  statement  is  used  to  store 
the  subscript  J  in  the  LOG  array.  The  next  block  IF  statement  determines  if 
the  encounter  is  with  a  critical  component.  If  not,  execution  continues  at 
the  end  of  the  loop;  otherwise,  the  two  assignment  statements  in  the  THEN 
branch  are  used  to  count  the  number  of  critical  components  on  the  shot  line, 
NCRIT,  and  to  save  the  encounter  number  of  the  last  critical  encounter  in 
IFLAG.  After  the  DO  loop  is  completed,  the  next  assignment  statement  is  used 
to  reassign  the  number  of  components,  NENC,  so  that  any  noncritical  encounters 
at  the  end  of  the  shot  line  are  excluded.  The  IF  statement  is  used  to  return 
to  Program  QKPK  if  there  are  no  critical  encounters  on  the  shot  line.  In  this 
case,  the  variable  IFLAG  is  also  tested  in  Program  QKPK  so  that  this  subroutine 
will  not  be  invoked  again  for  the  same  shot  line. 

The  statements 


00  3U0  I  *  l.NENC 
J  s  LQccn 
OP  «  XLOS(I) 

are  used  to  initiate  a  DO  loop  which  will  iterate  for  every  encounter.  The 
first  assignment  statement  is  used  to  get  the  subscript,  J,  for  the  component 
information  arrays  from  the  LOG  array.  The  next  assignment  statement  is  used 
to  set  DP  equal  to  the  component  LOS  thickness. 

The  next  statements 


IF  (IR  .Eu.  u  Them 
IF  tTHINFLtJ)  .GT.  0.)  them 
OP  *  thinflcj)  •  oau(i) 

ELSE 

OP  *  <LQS(t)  •  RMOFtJ) 

EMO  IF 
XLOS(I)  I  OP 
END  IF 
H»TE  »  0. 


are  used  to  compute  the  actual  component  thickness  for  the  encounter.  The 
first  block  IF  statement  is  used  to  bypass  these  steps  if  the  XLOS  values  have 
already  been  computed  for  this  shot  line.  The  next  block  IF  statement  is  used 
to  determine  which  method  to  use  in  computing  the  actual  thickness.  If  the 
Influence  mode  thickness  is  greater  than  0.0,  the  THEN  branch  of  the  block  IF 
will  be  used  to  compute  the  actual  thickness  as  the  product  of  the  wall  thick¬ 
ness  and  the  secant  of  the  obliquity  angle.  This  value  (in  meters)  is  assigned 
to  DP  (the  variable  THINFL  was  converted  to  meters  in  Program  QKPK) .  If  the 
other  method  is  used,  the  ELSE  branch  of  the  block  IF  will  be  used  to  compute 
the  product  of  the  LOS  thickness  (converted  to  meters  in  Program  QKPK)  and  the 
input  density  factor  of  that  component.  The  actual  thickness  for  the  Ith 
encounter  is  stored  in  the  XLOS  array,  using  the  assignment  statement  following 
the  end  of  the  second  block  IF.  The  last  assignment  is  used  to  initialize  the 
variable  to  be  zero. 

The  statements 

IF  (OP  .Gi.  0.)  then 

IF  (IIXH(J)  .EG.  0)  Then 
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are  used  to  determine  the  appropriate  method  for  computation  of  the  penetration 
rate.  If  the  component  thickness  is  less  than  or  equal  to  0.0,  the  THEN  branch 
of  the  first  block  IF  is  not  executed,  thereby  bypassing  all  rate  computations 
and  resulting  in  a  rate  equal  to  0.00.  The  second  block  IF  statement  determines 
whether  a  table  look-up  code  has  been  specified.  If  not,  the  THEN  branch  is 
executed;  otherwise,  the  ELSE  branch  is  used. 

The  next  statements 

-  ITEK  X  0 
CliLL  PmOPY 
CPS  X  CP 
AHO  X  AMX 


are  used  to  begin  a  rate  computation,  using  one  of  the  analysis  types.  The 
first  two  statements  are  used  to  call  Subroutine  PROPY  with  the  iteration  flag 
equal  to  0.  Subroutine  PROPY  is  used  to  compute  the  material  dependent 
properties — melting  temperature,  vapor  temperature,  heat  of  fusion,  coupling 
coefficient,  and  density — and  the  temperature  dependent  properties — thermal 
conductivity  and  specific  heat.  The  last  two  assignment  statements  are  used  to 
transfer  the  specific  heat  value  to  variable  CPS  and  the  density  value  to 
variable  RHO. 


The  statements 


IF  .EO.  1)  THEN 

ItEP  X  1 
T  X  IMLT 
J3S  CONTINUE 

CALL  PROPT 

TSI*R  X  THLT  ♦  Ftx  •  *LP  >  DP  /  XK 
IF  <»as(r-TsT»p)  .be.  iou.)  then 

T  X  TSIXH 
r.o  To  J35 
ENU  IF 


are  used  to  compute  the  component’s  temperature  rise  for  the  melt  in  place 
I  analysis  mode.  The  first  block  IF  statement  determines  whether  the  melt  in 
place  analysis  type  is  specified.  If  so,  the  statements  in  the  THEN  branch 
are  executed;  otherwise,  the  ELSE  branch  is  executed.  The  next  two  assignment 
statements  are  used  to  set  the  iteration  flag,  ITER,  equal  to  1  and  the 
temperature,  T,  equal  to  the  melting  temperature.  The  rest  of  the  statements 
form  a  loop  which  is  used  iteratively  to  compute  the  limit  of  the  temperature 
rise.  Since  the  iteration  flag  ITER  equals  1,  Subroutine  PROPY  recomputes  the 
temperature  dependent  properties — thermal  conductivity,  XK,  and  specific  heat, 
CP.  The  assignment  statement  following  the  CALL  statement  is  used  to  compute 
the  new  temperature  TSTAR.  The  mathematical  expression  for  computing  TSTAR  is : 


(3-12) 


I  The  second  block  IF  is  used  to  branch  out  of  the  loop  when  the  temperature  rise, 
i.e.  the  change  in  temperature,  is  less  than  100  from  the  previous  loop. 
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The  next  statements 


s 


IF  ((TSTAk  ,GT,  TVAP)  .auO.  (TvaF  ,CT,  0,1) 
STAP  s  >K  A  trVAP  •  TMlT)  /  OP 
HAIE  s  STAP  /  (kmO  •  (CPs  •  (TMLT  -  UNIT 
XLAMdO  *  CP  •  .5  •  (TVAP  •  IMLTin 

ELSE 


THEN 
tJ))  ♦ 


P*IE  =  FLX  •  ALP  / 
XLAMHU  A  CP  •  (.S 
ENO  IF 


(WHO  •  (CPS  •  (TMLI  •  TINIKJIJ  ♦ 
•  (TSTAk  ♦  TMLT)  -  TMLT))) 


are  used  to  compute  the  penetration  rate  for  the  melt  in  place  analysis  type. 
The  block  IF  statement  is  used  to  determine  which  of  two  melt  in  place  rate 
equations  should  be  used.  If  the  peak  temperature  is  greater  than  the 
vapor  temperature  and  the  vapor  temperature  is  positive,  the  rate  equation  in 
the  THEN  branch  will  be  used.  This  equation  in  mathematical  form  is: 


If  the  peak  temperature  does  not  exceed  the  vapor  temperature  or  the  material 
type  has  a  vapor  temperature  of  0,  the  second  melt  in  place  rate  equation  in 
the  ELSE  branch  will  be  used.  The  mathematical  form  of  the  second  rate 
equation  is: 


R= 

P 

Cps  (T^  -  T^)  +  A  +  Cpil 

/T*  +  T  \ 

m 

2 

1 

The  statements 


(3-10) 


ELSE 

RATE  a  Ftx  •  ALP  /  (RHU  •  (CP  •  (TMLT  -  TINIT(J))  ♦ 
S  XLAMaO)} 

ENO  IF 


are  used  to  compute  the  penetration  rate  for  the  melt  removed  analysis  type. 
This  rate  equation  is  written  mathematically  as: 


R  = 


aF 


Cps  (T^  -  T.)  +  X 
m  1 


(3-7) 


The  statements 
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I  ELSE 

CALL  table 
END  IF 

I  END  IF 

invoke  Subroutine  TABLE  when  a  look-up  code  has  been  specified  to  compute 
a  penetration  rate  for  nonmetallic  components. 

The  statements 

NATES(I)  :  RATE 
jHTtn  s  j 

are  used  to  store  the  penetration  rate  and  to  reassign  the  component  link. 

The  first  assignment  statement  is  used  to  store  the  computed  penetration  rate 
in  the  array,  RATES,  indexed  by  the  encounter  number.  The  second  assignment 
statement  is  used  to  store  the  component  information  array's  subscript  J  in 
the  JHT  array.  This  array  previously  contained  the  component  identification 
numbers . 

The  final  group  of  statements 

300  CONTINUE 
RETURN 
END 

contains  Statement  300,  the  last  statement  in  the  encounter  loop.  After  a 
penetration  rate  has  been  computed  and  stored  for  every  encounter  on  the  shot 
line,  the  RETURN  statement  will  be  used  to  relinquish  control  to  Program  QKPK. 
The  END  statement  is  used  to  conclude  this  program  unit. 
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SUBROUiraE  RDATA 


This  subroutine  is  used  by  Program  QKPK  to  read  the  formatted  input  deck. 
The  data  in  this  deck  include:  number  of  components,  shot  line  reverse  flag, 
units  conversion  factor  for  the  input,  flux  distribution  table,  and, 
optionally,  time  intervals  for  shot  line  breakdown.  Subroutine  RDATA  is  also 
used  to  print  the  flux  distribution  table,  the  first  page  of  output  from 
Program  QKPK,  and  to  test  the  flux  values  and  the  number  of  components.  An 
error  detected  by  these  tests  will  halt  program  execution.  The  same  tests  are 
made  by  Program  PRERD  and  any  error  should  be  corrected  before  proceeding  to 
Program  QKPK. 

The  statements 


SiijSnilTrvf  Bo»T4 

rnwvoN  icn-prsno)  .'MTtsno),  tFf;rson>,tT»p<sno),rA>'Afsoo). 

»  T  I‘.  I  T  f  SdO  I  .•lOPHTSC^nn  1  ,pif-pTH(  in.SoO  )  ,HKvM  (lO.Snn), 

1  OM,  c  (500  ) ,  I  a^PS,  tli(  Bfl")  ,  1  Y(SOO) 

Cn.pQH  txlSFl  <Sp.n),SMfa.t70),jH(S,i70i,(;iMCH 
•-ni  «0N  /PKE/  ►•OCiixp.fLx,  r»-l.*r.,HKiKF,(:rKt  T 

Co<-«n7(  /i.  v  XL osf  I  uo ) , .tMf  1 1 00) .f'FNC.nfiiK  1  no ) 

cn-po*.  /Fn..a/  h«7FS(  1 00,2^)  ,f  t  tM(?S)  .FxC’a(?S  )  ,fxp  ( ?S) ,  ifm4 x, 

*  TI-)X(^S).M*xr(27).MT'*»X 

coxpp^  /sr;^s/  nr.tFx.fFxx 

are  used  to  establish  array  dimensions  and  common  storage  allocations.  Data 
for  variables  are  transferred  to  and  from  other  program  units  by  using  the 
common  storage  areas. 


The  next  statements 

wEad  tior.,inoo)  mocomp 
IB  (nc  .r.F.  «(0C()»<p*2)  thFN 

SE»0  (IPf.lOOO)  1»V9S, CINCH 

se»0  (ion. 1000)  IFM4X 

pEao  (ion. 1002)  CFxc*'(i).i  =  ),ir»4'i) 

PE*(’  (IPC.  1002)  (FTIPID.tsl.IFHAX) 

are  used  to  read  the  number  of  ccmponents,  NOCOMP,  and,  if  the  value  read  is 
not  too  large,  to  read  the  shot  line  reverse  flag,  the  input  unit  conversion 
factor,  and  the  flux  table.  If  NOCOMP  is  too  large,  the  ELSE  branch  of  the 
block  IF  is  executed. 

The  statements 

nOITF  (I»o,?000)  NDCC’HP.  lOVRS. CINCH 
hOITE  (1.0,2001)  IFM4X 
lE  =  0. 

00  110  I  *  l.IFHAX 
TR  a  IE 
IE  a  FII'MI) 

hOIIE  (1«o,2002)  TB.If  .FxCw(I) 

(to  CI’NIINUE 
IR  a  IE 
IE  a  l.EJO 

.«IT£  (I.o,2p02)  lM,tF,Fxrp(IFM»x) 


are  used  to  print  the  first  page  of  QKPK  output.  The  first  two  WRITE 
statements  are  used  to  print  the  number  of  components,  the  shot  line  reverse 
flag,  the  input  unit  conversion  factor,  and  the  number  of  points  in  the  flux 
distribution.  The  DO  loop  is  used  to  print  the  flux  distribution  table  in  a 
format  that  shows  a  flux  level,  FXCM(I),  lasting  for  a  time  interval,  TB  to 
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TE.  Since  the  last  flux  level  applies  to  all  times  greater  than  the  last 
time  in  array  an  extra  line  is  printed  in  the  flux  table  with  an  end 

time  value  of  lO"^  .  This  value  requires  more  digits  than  the  format  for  the 
last  WRITE  statement  will  allow,  so  the  end  time  for  this  flux  level  is 
printed  as  a  row  of  asterisks,  symbolizing  an  infinite  end  time. 


The  statements 

DO  IfcO  T  = 

IF  ((F«C!'(I)  .GT.  0.)  ,»HD.  (FXCMd)  .LE.  I..OE  +  OU))  THEN 
F»H(I)  =  FkChU)  •  10000. 

ELSE 

hPITE  (IwR.lOO)  FXCHd) 

STOP 
END  IF 
ISO  CONTINUE 

are  used  to  chec^  if  each  flux  level  is  within  the  acceptable  range  (0.0  t^ 
60000.0  watts/cm  )  and  to  convert  the  flux  values  to  another  unit,  watts/m'^. 
The  DO  loop  is  used  to  cycle  through  each  of  the  IFMAX  flux  levels.  The 
block  IF  statement  is  used  to  test  the  flux  leve^.  If  the  flux  level  passes 
the  test,  the  flux  value  is  converted  to  watts/m  and  is  stored  in  array 
FXM.  If  the  flux  level  is  too  low  or  too  high,  the  WRITE  statement  is  used 
to  print  a  warning  message  and  the  program  stops. 


The  statements 

CD  aO  I  s  l.NOCOMP 

READ  dO0,1001,inST4T*I0S)  ICO-Pl  1)  ,«4T  ( I ) ,  If  C  d  )  #  1 1 4  C  C 1)  . 

S  I*N»d).TIMI  dl.THINFLdl.RHOFdl.IYdldlltD.NnPNTSd) 

IF  IlOE  .EC.  01  THEN 

IF  ((UOPNfSd)  .LT.  2)  .OR.  (NOPNTSd)  .RT.  10)1  IMFN 
•  PITF  (iNR.lniO)  I.NPPMSd) 

STOP 

ELSE  IF  (NOPNTSd)  .RT.  a)  THEN 
READ  (IRD.inoidOSlalilos) 
end  if 
END  IF 

IF  noF  .Rt.  0)  THFN 
hOITE  drtR.1015)  I 

WRITE  dwR.IOOl.ICSTilsIOS)  ICO"P  d  )  ,h»T  (I  )  ,  IFi;  C  1)  ,  I  T»U  (  I  )  , 
S  1  •N»d  1  .  dun  d  )  .ThIwFLI  I  I.RMCF  (I  ).  iTd  )  .lull  )  .NlIPNTStl  ) 

STOP 

El  FF  IF  dns  .LT.  U)  TMFN 

"RITF  tlwR.  1  020,  I  nST/lTsInS)  I-l,NnCOHP 
STllP 
ENU  IF 
CHNTTNMF 


are  used  to  read  the  component  information  cards  by  executing  a  DO  loop  for 
every  component.  Each  component  requires  two  to  three  cards  depending  on 
the  number  of  points  at  which  probabilities  of  kill  are  to  be  established. 

The  READ  statement  sets  a  status  indicator  lOS  to  report  the  outcome  of  the 
READ  operation.  If  lOS  equals  0,  the  READ  executed  normally  and  the  value 
of  NOPNTS(I)  is  checked  to  insure  that  it  is  within  the  subscript  range  of 
the  DEPTH  and  PKVAL  arrays  and  that  there  are  at  least  two  elements.  If  the 
subscript  number  fails  these  criteria,  an  error  message  is  printed  and  the 
program  terminates.  If  NOPNTS(I)  meets  these  conditions,  an  additional  read 
is  performed  if  more  than  four  P(K/H)  points  are  being  entered  so  as  to 
bypass  this  third  component  card.  If  lOS  is  greater  than  0,  an  erro'-  occurred 
during  one  of  the  two  possible  reads.  An  error  message  is  printed  along  with 
the  values  that  were  successfully  read.  The  program  then  terminates.  If  lOS 
is  less  than  0,  an  unexpected  end  of  file  occurred.  The  program  assumes  that 
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too  large  a  value  of  NOCOMP  was  entered,  although  a  missing  component  card 
could  cause  the  same  effect.  A  messag.  is  printed  and  the  program  terminates. 


The  statements 


HfwINO 

Dfi  as  I  s  1,5 

Ht«n(i«n,iooi) 
as  rtiNTiNuF 


reset  the  formatted  data  file  for  reading.  After  setting  the  file  pointer 
to  the  first  record,  the  first  five  records  are  bypassed  using  a  DO  loop 
since  they  have  been  previously  checked  for  content  errors. 


The  next  statements 


i.'n  so  I  s  i.^ochmp 

«fan  (IPO, 1001)  ICliMPd  )  ,M«I  (  I),  1FG(  I),  I14M(  1  )  ,  I»o»(  I  )  , 

1  rlNIT  < 1 ) , IHINFLI I ) ,PMnF(l ),lt (I) ,1U( I ),NOP‘ns(I ), (DEPTH! J, n , 
S  PPV4L(J,I),  J  =  l,NOPNrS(I)) 

50  CDNTIMue 


are  used  to  read  the  component  information  data  by  executing  the  DO  loop 
once  for  every  component.  Each  iteration  of  the  loop  causes  the  READ 
I  statement  to  read  information  on  one  component  from  two  or  three  data  cards, 
I  depending  on  the  number  of  points  for  which  probabilities  are  being  entered. 
These  data  are  stored  in  the  component  information  arrays  subscripted  by  I, 
the  DO  loop  index. 

T^e  statements 


»E4n  ( IRD, lOOO.ENOsftO)  NTM4X 
PF40  (100,1002)  (TI«4)((T  ),lal,NTM4)r) 
60  CnmiNUE 


are  used  to  read  the  optional  shot  line  breakdown  time  intervals.  If  these 
data  are  not  included,  an  end  of  data  will  be  detected,  which  will  cause  a 
branch  to  Statement  60.  Otherwise,  the  first  READ  statement  will  be  used 
to  accept  the  number  of  time  bins  and  the  second  RE.\D  statement  will  be  used 
to  read  each  of  the  values  for  array  TIMAX  by  executing  an  implied  DO  loop. 

The  statements 

FUSE 

kOITE  (IPO, 2004)  Nncowp 
STOP 


form  the  ELSE  branch  of  the  block  IF  when  the  number  of  components,  NOCOMP, 
I  is  too  large.  The  WRITE  statement  prints  an  error  message  and  then  the 
program  stops. 

The  statements 

*  END  IF 

PFTIIPN 

I  close  the  block  IF  and  return  control  to  the  calling  program. 


The  last  group  of  statements 
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100  FOHMAT (/5X, INPUT  EPROH  •••».  FLUX  s'fElO.2/ 

S  'PHnRRXM  malting') 

1000  FORMAT  CIS,2E10.2) 

1001  FORMAT  (IS,lS.lx.n.l2»llX.n.FS.n,S?X,Fi,2,7X.FJ.2,212/ 

S  I5.RF7.U/11F7.«) 

1002  FORMAT  (J0F7.0) 

1010  FORMAT  <'1'*5X, '•••••  INPUT  ERROR  AN  INVALID  NUMBER  '* 

S  'FOR  the  VARIAHIE  NOPNTSd)  NAS  READ;* 

S  /2«X,'I  s  '.IR*'  NOPNISCI)  =  '.la) 

1015  FORMAT  (/5x» '*••••  INPUT  ERROR  •••••  ERROR  OCCURREO  DURING 
S  'RFAD  OF  COMPONENT  CARO  •'.la.'  IN  THE  SERUENCE'/ 

S  2PX,'THE  FOLLOWING  VALUES  HERE  READ:') 

1020  format  t/5x» '»•••*  INPUT  error  »•••«  END  OF  FILE  OCCURRED  * 

S  'after  '.la,'  CAROS  WERE  HE»u,' 

S  /2(1X, 'ALTHOUGH  NOCOMP  =  '.la) 

2000  FORMAT  ('  number  of  COMPONENTS  ='»I5.5X. 

S  'IRVRSS'. 15. 5X, 'FACTOR  FOR  CONVERSION  TO  INCHf S= ' . E I  0 . a ) 

2001  FORMAT  ('  NUMBFR  OF  POINTS  IN  FLUX  OISTOIBUTION  =',15/ 

S  '  BEGIN  TIME', hX, 'End  TIME*. ax, 'FLUX') 

2002  FORMAT  (JX,F10.2.IX,F10.2,3X,F10.2) 

200a  format  ('NOCQMP  ='.110,'  IS  TOO  LARGE  FOR  ARRAY  DIMENSIONS'/ 
s  '...program  halting') 

END 

is  used  to  define  all  input  and  output  formats  required  by  this  subroutine. 
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SUBROUTINE  READIN 


This  subroutine  is  used  to  read  all  input  required  for  Program  PRERD. 
This  includes  the  flux  distribution  table,  the  component  information  cards, 
and,  optionally,  the  time  intervals  for  shot  line  breakdown.  Subroutine 
READIN  is  also  used  to  print  the  first  page  of  PRERD  output  and  to  insure 
that  certain  input  values  are  within  valid  ranges. 


The  statements 


SUhnniiTlNF  Wf«mN 

cni-wdN  T  cn-p  ( 500 ),  M*  T  ( son  ),  1  F(;  ( bnn ).  It  At*  'll. 

S  Tlr.IMSOdl.NtlPNTSCjOOI.I’FPtMClo.SOOJ.PKVALClO/Snn), 

S  PHOF  (500  )  ,  UKSUO  1  ,  I  Y  (500  ) 

COMMON  THjNFL  (5001  ,\ncn’*p 

Cn«iMnN  /LdMtS/  IPII.IWR 

CdMMON  /5I7fS/  ItC.IF* 

niPFt.SlON  FXC*«(25).FTIV(?5),TIM»X(.;5) 

are  used  to  declare  array  dimensions  and  enable  transfer  of  information  to 
and  from  this  subroutine,  using  two  labeled  commons  and  one  unlabeled  common. 


The  statements 


PFAfi  (iRo.inoo)  uncovip 
IF  (ITC  .Gf,.  WnrOMPY?)  TMFN 
REAf)  (IRd.lOOO)  IRVRS.rlNCM 
READ  (IRll.lOni)  IFMAX 
►  RITE  (Ii*B,?on(i)  N()cn«p,  IPVRS.CIRCH 
IF  ((IF'AAX  .Lt.  1)  .(IH,  (IFMAX  .GT.  IFX)) 
*  «RlTe  (IPR.IOI)  IFmAx 
►PITE  (I«H,?oni1  IfVikX 
IF  (JFMAX  .GT.  IFX)  IFWAX  s  IFX 


are  used  to  read  the  number  of  target  components  and  to  insure  that  the  number 
of  components  (plus  two  for  default  components)  does  not  exceed  the  component 
array's  dimensions,  ITC.  If  this  input  error  occurs,  the  ELSE  branch  of  the 
block  IF  statement  is  executed  where  a  warning  message  is  printed  and  the 
program  halts.  This  is  the  first  of  four  fatal  input  errors  that  can  be 
detected  by  Subroutine  READIN.  If  the  error  does  not  occur,  the  subroutine 
continues  by  reading  the  shot  line  reverse  flag,  the  input  units  conversion 
factor,  and  the  number  of  points  in  the  flux  distribution  table.  This  infor¬ 
mation  is  then  echoed  to  device,  IWR,  in  a  formatted  WRITE  statement.  If  the 
number  of  points  in  the  flux  distribution,  IFMAX,  is  negative  or  exceeds  the 
array  dimensions,  an  error  message  is  printed  but  the  subroutine  continues  by 
writing  the  heading  for  the  flux  table.  The  last  IF  statement  insures  that 
IFMAX  is  less  than  or  equal  to  the  flux  array  dimensions. 


The  next  set  of  statements 


READ  CRO.ino,’)  fFxC**(  I  ),  Isl  ,  If  VAX) 
RfAG  (IRn.lOO?)  (FTIv(I),I-l,lf..4,) 
TE  «  0. 

DO  no  I  *  I,IF*'AX 
TB  *  TF 
IF  »  FTHin 

write  (Ii*R,?i)0Z)  IH.TE.FxCvd) 
no  CONTINUE 
TP  X  TE 
1E  X  l.FJO 

WRITE  (IwR.JOOi)  TH.  tE  .FXCvOFmAx) 
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is  used  to  read  and  write  the  flux  distribution  table.  The  flux  levels  apply 
to  time  intervals,  TB  to  TE.  Note  that  the  subroutine  prints  one  more  point 
than  it  reads  in  the  flux  distribution.  The  last  interval  printed  is  an  extra 
point  and  is  used  to  indicate  that  the  last  flux  level  applies  to  all  times 
greater  than  the  last  FTIM  value. 

The  statements 

DO  160  I  s  |,IF«tX 

IF  KFXCMd)  .LE.  0.)  .OS.  (EXCMttl  .GT.  6.0E*Oa)) 

»  wSITE  (iws.iool  EXCMdJ 

160  continue 


are  used  to  test  each  element  of  array  FXCM  to  insure  that  the  values  are 
within  the  limits,  0.0  through  60000.0.  If  a  flux  level  is  outside  of  these 
bounds,  an  error  message  is  printed  but  the  subroutine  continues. 


The  statements 


no  40  I  s  l.NOCOMP 

SEAO  doo.  1  noi  .  lOSTA TSIOS)  ICOMPd  ),M»Td  1 »  IFGd  )  r  IT«B  d  )  . 

lANAdl.Tlnl  T  (1 1  .TMINFLd  1  #F‘’OFd)  .  iTd  1  /  lull  1  .NOPNTSd  ) 

IF  dOS  .EM.  01  THEN 

IF  ((NOPMTSdl  .LE.  0)  .OP.  INOPNTSdl  .r.T.  10)1  then 
■  SITE  (INS. 10101  I.NOPNTSd) 

STOP 

ELSE  IF  (NOPNTSd)  .GT.  4)  THEN 
BEAD  d»0»1001,10STAT  =  IOS) 

END  IF 
END  IF 

IF  dOS  .ST.  0)  THEN 
■SITE  d«R. 10151  I 

■  SITE  (iPS.lOOl.IOSTATalOS)  ICQHPd  1  .MAT  d  )  ,  IFG  d  ) .  I  T  AO  d  ) , 
lANAdl.TlnlTdl.THlNFLdl  .SHOFd  l.Irdl.IlHI )  .NOPNTSd  ) 
STOP 

ELSE  IF  dOS  .LT.  0)  THEN 

■SITE  (IwP.IOEO.IOSTaTsIOS)  I-I.NOCOMP 
NOCO-o  4  I  -  I 
END  IF 

continue 


are  used  to  read  the  component  information  cards  by  executing  a  DO  loop  for 
every  component.  Each  component  requires  two  to  three  cards  depending  on  the 
number  of  points  at  which  probabilities  of  kill  are  to  be  established.  The 
READ  statement  sets  a  status  Indicator  lOS  to  report  the  outcome  of  the  READ 
operation.  If  lOS  eo-ials  0,  the  READ  executed  normally  and  the  value  of 
NOPNTS(I)  is  checked  to  insure  that  it  is  within  the  subscript  range  of  the 
DEPTH  and  PKVAL  arrays.  If  the  subscript  is  out  of  range,  an  error  message 
is  printed  and  the  program  terminates.  This  is  the  second  fatal  error  detected 
by  this  subroutine.  If  NOPNTS(I)  is  within  the  array  bounds  1  to  iO,  an 
additional  read  is  performed  if  more  than  four  P(K/H)  points  are  being  entered 
so  as  to  bypass  this  third  component  card.  If  lOS  is  greater  than  0,  an  error 
occurred  during  one  of  the  two  possible  reads.  An  error  message  is  printed 
along  with  the  values  that  were  successfully  read.  The  program  then  termin¬ 
ates.  This  is  the  third  fatal  error  detected  by  this  subroutine.  If  lOS  is 
less  than  0,  an  unexpected  end  of  file  occurred.  The  program  assumes  that  too 
large  a  value  of  NOCOMP  was  entered,  although  a  missing  component  card  could 
cause  the  same  effect.  A  message  is  printed  and  execution  continues  after 
reducing  the  value  of  NOCOMP. 
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The  statements 


^^BTNr)  (isii) 

I'n  «5  I  =  1,5 
HF.»n(l»l),lDOl) 
«5  CP«JTI^uE 


reset  the  formatted  data  file  for  reading.  After  setting  the  file  pointer 
to  the  first  record,  the  first  five  records  are  bypassed  using  a  DO  loop 
since  they  have  been  previously  checked  for  content  errors. 

The  statements 


pn  so  I  =  i.MicoMP 

>-E»D  tin.), 1001, tPSr«TsIOS)  TCPf'Pd), HATCH, IFGm,IT»B(n, 

*  i*N4(  n ,  1  iNt  r  ( 1 )  ,t«ihflci  i.rhpf  cd,  iyc  i  >,  iiitn.NOPNrsci ) , 

1  (nEPlH(J,n,P«VAL(.I,n,J  =  l.KriPNTSCl)) 

50  COA'TIMiF 


are  used  to  read  the  component  Information  cards  by  executing  a  DO  loop  for 
every  component.  These  data  are  stored  in  several  component  information  arrays 
which  are  defined  at  the  end  of  this  section  in  the  List  of  Abbreviations  and 
Symbols.  The  user  may  place  the  component  information  cards  in  any  order  so 
long  as  each  component's  continuation  card(s)  follow  the  initial  card  in  the 
proper  sequence. 


The  following  statements 


PFAP  (  IB",  tOOfl,ENI>*An)  NTMAX 

IF  ((NtH/l*  .r,F.  11  .ANO.  (M1MAX  ,LF.  IFXI)  THEN 
read  (lRn,10U?)  (TIHAX(II,Is|, NTMAX) 

"PITE  CIhR.IOOS)  (TIMAX(I), 1=1, NTMAX) 

RETURN 

ELSE 

"RITE  (I"R,10?)  NTMAX 
"RITE  (InP,1007) 

STOP 
end  if 


are  used  to  read  the  time  intervals  for  shot  line  breakdown  if  the  user 
includes  this  optional  input.  This  is  done  by  first  reading  NTMAX,  the  number 
of  points  in  the  time  interval  array.  The  value  of  NTMAX  is  then  tested  and 
if  it  is  within  the  array  limits,  the  subroutine  reads  and  echoes  to  device 
IWR  the  upper  boundary  times  for  which  Pk's  and  vulnerable  areis  are  to  be 
computed.  Control  then  returns  to  the  calling  program.  If  NTMAX  is  outside 
the  array  bounds,  an  error  message  is  printed  and  execution  stops.  This  is 
the  fourth  fatal  error  detected  by  this  subroutine.  If  the  user  omits  the 
breakdown  time  intervals,  the  first  READ  statement  detects  an  end  of  file 
condition  on  device  IRD  and  branches  to  Statement  60. 

The  statements 

FLSE 

'RITE  (HP,  1007) 

ITOP 
EN,)  IF 
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are  executed  only  if  NOCOMP,  the  number  of  components,  exceeds  the  array 
dimensions.  These  statements  are  used  to  print  a  warning  message  and 
stop  program  execution. 

The  statements 


bO  c'^ntinue 

kSITE  (IxR.IOOfc) 
RETURN 


are  executed  when  the  read  statement  following  Statement  50  detects  an  end 
of  file  condition.  In  this  event,  the  time  intervals  for  the  flux  distri¬ 
bution  will  be  used  as  the  breakdown  time  intervals.  The  statements  listed 
after  Statement  60  are  used  to  print  this  information  in  a  warning  message 
and  then  return  control  to  the  calling  program. 

The  statements 


too  rnHMATT/SK, *•••••  INPUT  error  »•••«  ELD*  =*.E10.2) 
101  FORMATI/S*. ■•••»•  INPUT  ERROR  IFMAX  **,110) 


102  FORmaTT/SX. ■•••••  INPUT  error  «•«•«  nTMAx  s', 110) 

1000  FPrrAT(I5,2F10.2) 

1001  FORMATTtS.I J, 1*. I I.I2.t3X,Il.F5.u,S2X,FJ.2,7x,Fi.2,2I2/ 

$  I5.9F7.«/1 lF7.a) 

1002  FORMAT  (10F7.0) 

lOOS  format  <»  TIMAX  values  = * / ( t OF  I  0 ,2 ) ) 

lOOb  FORMAT  (•  NO  TIMA*  VALUES  "ERE  read  in  ...  flux  TIME  POINTS 
*  'MILL  RE  USED') 

1007  format  ('  ARRAY  OIhEnSIONS  ARE  TOO  SHALL ...  PROGRAM  MALTING') 

1010  format  (  *1 '.S*  ,  •  *«»a»  input  error  *«<sa  AN  INVALID  NIJMMER  'i 
S  'FOR  THF  VARIAHLE  NORNTSd)  MAS  READ:' 

S  /2F*.'I  *  ',Ifl,'  MOPNTS(I)  »  ',!«) 

1015  FORMAT  (/5«, '♦*•••  INPUT  FRROR  •••••  ERROR  OCCURRED  OIIRINC 
S  'READ  OF  COMPONFuT  CARD  s', la,'  IN  THE  SEQUENCE'/ 

t  2«X,'Thc  FOLLOmInG  values  kFRE  READ:') 

1020  format  (/5«, Input  error  *••**  END  OF  FILE  OCCURRED  '  i 
1  'after  CARDS  *ERF  read,'  ■ 

f  /2A*, 'although  NDCllMP  s  ',10) 

2000  FORMAT!'  NIImhER  OF  COMPONENTS  s',IS,5X, 

S  '  IHVRS  s', 15,5*, 'FACTOR  FOR  CONVFRSION  TO  INCHES  =',F10.a) 

2001  FORMAT  (/'  NUMPFR  qF  POINTS  IN  FLU*  OISTmIHUTIUN  s', 15// 

S  '  HFGIN  TIME ',5*, 'END  TIME',?*, 'FLUX') 

2002  format  (l*,F|P.?,)«,Ft0.2,i»,Ei0.2) 

END 


are  used  to  specify  all  formats  for  the  READ  and  WRITE  statements  in  this 
subroutine  and  to  end  this  program  unit. 
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SUBROUTINE  REVRSE 

When  using  the  QKLOOK  programs,  a  user  may  obtain  data  for  a  second  view 
without  generating  a  new  binary  LOS  file.  This  is  done  by  setting  the  shot 
line  reverse  flag,  IRVRS,  on  the  second  QKPK  input  data  card  equal  to  1.  This 
will  cause  Program  QKPK  to  call  Subroutine  REVRSE  for  every  shot  line  in  the 
viewing  plane.  This  subroutine  is  used  to  reverse  the  order  of  the  component 
encounters  along  the  shot  line  and  to  transform  the  shot  line  coordinates  to 
the  new  system.  The  resulting  shot  line  is  the  same  as  the  orginal  one  but  in 
the  opposite  direction.  Note  that  LOS  data  from  Program  MAGIC  does  not  include 
exit  obliquity  angles.  If  MAGIC  data  is  used,  the  obliquity  angles  on  the 
reversed  shot  line  are  set  equal  to  the  original  obliquity  angles. 

The  statements 

SUOKOUTINE  hEW«Sf.(J) 

i  COMMON  ICiiMM(b«u)  ,M»1  (500)  ,  IFufSOIl)  .  1)  AH  (500) ,  I<N«  (500) , 

*  Tl  .n  (500).N(l»'l.rS(50U),OE»>TM(|0.50lO«PAlfAL(t0.500), 

S  mhuF  (500)  ,  INVMS,  111(500  I  .  tv  (500) 

COMMON  THIIJFL  (50  0)  ,S(1  (2.  I7u)  .  JM(5, 17  0)  .CINCH 
COMMON  /Tnu/  XL0b(  1  JO]  ,  JH)  (  IUO)  .r.ENC.UHUdOO) 

are  used  to  specify  COMMON  blocks  and  one  argument,  which  are  required  for 
transfer  of  information  to  and  from  this  subroutine.  The  SH  array  is  the 
only  one  required  from  the  unlabeled  COMMON  block.  COMMON  /TWO/  contains  the 
number  of  encounters  NENC,  and  the  encounter  arrays  which  will  be  reversed  by 
this  subroutine.  The  argument  J  is  the  shot  line  index  needed  as  a  subscript 
for  array  SH. 

The  statement 

SM(l.J)  =  -SM(1,J) 

I  is  used  to  reflect  the  y-coordinate  of  the  shot  line  about  the  Z-axis  while 
I  the  z-coordinate  of  the  shot  line  remains  the  same. 

The  next  statements 

00  3U  N  s  ^,NE^C7^ 

JJ  =  NENC  •  N  ♦  1 
J1  :  J)IT(N) 

SI  a  aHU(N) 

S2  s  XLn.S(N) 

JH1 (N)  s  J«I(JJ) 

OBn(N)  s  Unl](JJ) 

>CIIS(N)  =  «C0S(JJ) 

JMT(JJ)  a  J1 
OBU(JJ)  :  SI 
ICOS(JJ)  s  S2 
30  CONTINUE 
HETUNN 
ENU 

are  used  to  reverse  the  order  of  the  components  along  the  shot  line.  There  are 
three  encounter  information  arrays  which  must  be  interchanged.  The  DO  loop  is 
I  used  to  execute  the  interchange  NENC/2  times.  The  variable  JJ  is  computed  in 
the  first  assignment  statement  and  is  the  subscript  of  the  array  element  to  be 
interchanged  with  the  Nth  array  element.  The  last  nine  assignment  statements 
in  the  DO  loop  are  used  to  i.iterchange  the  Nth  and  JJth  elements  in  the  three 
encounter  information  arrays. 
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SUBROUTINE  TABLE 

This  subroutine  is  called  by  Subroutine  ElAT  and  is  used  to  compute  a 
penetration  rate  for  an  encounter  with  a  nonmetallic  component  using  a  table 
look-up  procedure.  The  table  look-up  code  is  defined  by  the  user  in  the 
formatted  component  information  data. 


The  first  set  of  statements 


SUb'^OUTlNt  TtHLE 

CUMMUN  ICOKHCSOO)  .h-OT  (EOO)  ,  IFCtSUU)  ,  1  T  Ab  (  SOU  )  ,  1  Arj*  (  SUO  )  , 

S  T  IN  IT  (SOU)  ,NUPinTS(500)  ,0EPTH(  |  0,  SOU  )  ,  PK  V  AL  (  1  0  ,  SOO  )  , 

s  HHiiF(suv).lHvPS.lu(sooi,tr(Son) 

CDPMUN  TKlNFl.  (SOO)  .SH(a.  17u)  ,  JH(b.  1  7U)  .CINCH 
CUMMON  /(I.mE/  nocomp, FLA, IPLA(.,PtAXF,NCRlT 

COMMON  /PrtUP/  ALP, HMU.CP . TML t , ALAMHO.KA IE, JCOMP, J ,0P, X», TVAP, 

i  CPL.irEH.T 

COMMON  /LUNITS/  IHO,  Ir.H,  1  liN,  lOOT 


is  used  to  facilitate  transfer  of  data  to  and  from  this  subroutine  and  to 
declare  array  dimensions.  The  ITAB  array  in  the  unlabeled  COMMON  contains  the 
table  look-up  codes.  The  variable  FLX  in  COMMON  /ONE/  is  the  flux  level  for 
this  rate  computation.  COMMON  /PROP/  contains  the  variable,  J,  which  is  the 
component  index  used  for  the  table  look-up  code,  and  the  variable,  RATE,  which 
is  the  penetration  rate  computed  in  Subroutine  TABLE. 

The  statements 


IF  (ITAa(J)  .EM.  U  )MtN 

c 

c  plexiglass 

c 

PATE  *  -t.iSc-lO  •  FLX  •  11.9 
ELSE  IF  UTauU)  .E'I.  a)  THEN 
C 

c  triplex  dielectric 

c 

RATE  s  a.bSaZE'lV  •  FLX  «  0.9 
ELSE  IF  (ITAH(J)  .eg.  3)  THEN 
C 

C  FIBRITE 

C 

hate  =  a.b33E-lO  •  FLX  •  0,9 
ELSE  IF  (ITAa(J)  .ED.  w)  THEN 
C 

c  RUBBER 

C 

RATE  =  a.b909E-lU  •  FLX  •  0.9 
ELSE  IF  (ITAB(J)  .ED.  S>  THEN 
C 

C  GLASS 

C 

RATE  *  .35E-I0  •  FLX  •  0.9 

Else  if  litauU)  .eq.  b)  then 
c 

C  FIBER  GLASS 

C 

RATE  *  .««E“I0  •  FLX  •  0,9 


are  part  of  an  IF  block  which  takes  the  appropriate  action  based  on  the  value 
of  the  table  look-up  code,  where  ITAB(J)  is  the  table  look-up  code  for  the 
component  being  encountered.  For  acceptable  values,  Che  penetration  rate  for 
the  material  specified,  is  computed  as  a  product  of  the  material  coefficient, 
the  flux  level  FLX,  and  an  absorption  factor  of  0.9.  This  is  written 
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mathematically  as: 


R  =  0.9CF 


(3-1) 


The  next  statements 


ELSE  IF  (ITABIJ)  .EO.  7)  IHEN 

c 

C  PYRUCERAM 

c  _ 

IF  CFl»  .GT.  3.7<iE*6)  7mEN 

HATE  =  -l.RE-A  ♦  3.7^£-ll  »  FLX  •  O.R 
ELSE 

KHITE  (INR.2000) 

STOP 
E^D  IF 


are  used  to  compute  the  penetration  rate  when  the  table  look-up  code  equals  1 
For  this  table  look-up  code,  the  flux  level  must  be  greater  than  37A  watts/cm  . 
When  the  flux  level  is  high  enough,  the  assignment  statement  in  the  THEN  branch 
of  the  IF  block  is  used  to  compute  the  penetration  rate.  Otherwise,  the  ELSE 
branch  prints  a  fatal  error  message  and  the  program  terminates. 

The  statements 

else  if  (ITAaU)  .£((.  b)  THEN 

GLASS  FIbER  EPIOI 

"ATE  s  L.55bE-I0  •  Fn  •  0.9 
else  if  (llAdlJ)  .ER.  9)  TmER 

graphite  EPUAY 

RATE  s  U.I19E*1U  •  FL>  •  0.9 

are  used  to  compute  the  penetration  rate  when  the  table  look-up  code  equals 
8  or  9. 


c 

c 

c 


c 

c 

c 


The  statements 
else 

mate  s  u«0 

AKlTb  tuOO)  JCUV.K»  |TAU(  J) 

l(4U  IF 
RF  TUR«l 

are  used  to  assign  a  penetration  rate  equal  to  0.0  and  to  write  a  warnin 
message  when  the  table  look-up  code  does  not  have  an  acceptable  value.  The 
END  IF  statement  closes  the  block  IF  and  the  RETURN  statement  returns  control 
to  Subroutine  RAT. 


The  final  group  of  statements 

1000  FjrhaTI'  This  COHPunEM  uuES  not  fit  the  bounds  fur  tables*. 21b) 

2000  FORMAT!'  THE  FLU«  IS  INDICATED  10  BE  LESS  Than  37*  ri/CM««2'/ 

S  'OCMECK  subroutine  TAHLE.. .program  malting*) 

END 

is  used  to  define  the  formats  for  the  error  message  output  and  to  end 
Subroutine  TABLE. 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY 

(including  Subroutine  PENT) 

Equivalent  in 

Abbreviation 
or  symbol 

Mathematical 

Model 

Definition 

Units 

ASQF 

— 

Component  presented  area 

ft^ 

AVFLAG 

Component  vulnerable  area 
flag; 

=  Ot  incremental  vul¬ 
nerable  areas 
=  1:  true  vulnerable 

areas 

AZ 

— 

Attack  azimuth  angle 

degrees 

COMPAVd.J) 
I<500,  J£10 

Vulnerable  area  for  the  Ith 
component  during  the  Jth 
time  interval 

ft  or  m 

EL 

— 

Attack  elevation  angle 

degrees 

FRV 

— 

Decimal  form  of  the  percent 
of  vulnerable  area 

— 

FTIM(I) 

I£25 

— 

Time  arguments  for  the  flux 
distribution 

seconds 

FXCM(I) 

I<25 

— 

Weapon  intensity,  flux  at 
time  FTIM(I) 

watts /cm' 

GRID 

^G 

Grid  cell  size — read  as2a 
length,  converted  to  ft^ 

varies 

I 

In  Subroutine  PENT,  the  sub¬ 
script  for  the  component 
information  arrays  corres¬ 
ponding  to  the  encountered 
component 

lUD 

I<200 

Number  of  encounters  in  each 
new  shot  line  when  the  Ith 
set  of  arrays  are  defining  a 
new  shot  line;  otherwise  the 
component  numbe”  in  the 
encounter  with  penetration 
times  in  R1(J,I)  and  R3(I) 
(equals  9999  to  indicate  end 
of  view) 

4-83 


Change  1 


JTCG/AS-79-V-008 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY 

(Continued) 
Equivalent  in 

Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

ICOMP(I) 

I<500 

— 

Component  identification 
number  for  the  Ith  component 

IDVEH 

— 

Not  used,  variable  on  first 
record  of  LOS  file 

IFG(I) 

I<500 

Criticality  flag  of  the  Ith 
component ; 

=  0:  noncritical  com¬ 
ponent 

4  0:  critical  component 

IFMAX 

— 

Number  of  points  in  the  flux 
distribution  table 

II 

— 

Shot  line  encounter  number 
in  Subroutine  PENT 

IIN 

— 

Device  number  for  the  binary 
LOS  input  file  (=  2) 

lOUT 

— 

Device  number  for  the  four 
binary  output  files  (=  3) 

IRD 

— 

Device  number  for  the  for¬ 
matted  input  file  (=  5) 

IRVRS 

Shot  line  reverse  flag; 

»  0:  penetration  times 
were  computed  with 
encounters  in 
normal  order 
=  1:  penetration  times 
were  computed  with 
encounters  in 
reversed  order 

ISET(I) 

I<10 

»  0:  the  Ith  system  has 
no  components  on 
the  shot  line 
=  1:  the  Ith  system  has 
at  least  one  com¬ 
ponent  on  the  shot 
line 

Units 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY  (Continued) 

Equivalent  in 

Abbreviation  Mathematical 
or  Symbol  Model 

LM  - 

LOC(I) 

I<100 

MAXTIM 

MULSYS 

NAME (I) 

I<100 

NBEG 

NENC 

NEND 

NOCOMP  - 

NOPNTS(I)  - 

I<500 

NSHT 

NTIM 


Definition 


A  previous  encounter  number 
on  a  shot  line  in  Subroutine 
PENT 

Component  number  for  the  Ith 
shot  line  encounter  in  Sub¬ 
routine  PENT  (equivalent  to 
NAME(J)  in  Program  PEAKAY) 

Two  plus  the  number  of  time 
intervals  NTIME 

Logical  variable  assigned  a 
value  of  .TRUE,  only  if  the 
component  is  in  a  system  and 
it  is  a  multiply  vulnerable 
component 

Component  number  of  the  Ith 
shot  line  encounter 

Next  shot  line  encounter 
number  beginning  a  new 
encounter  loop  in  Subroutine 
PENT 

Total  number  of  encounters 
on  a  shot  line 

Number  of  the  last  encounter 
for  a  time  interval 

Number  of  components  in  the 
target  model 

Number  of  Pk  values  for  Ith 
component 

The  viewing  plane  shot  line 
number 

Number  of  the  time  intervals 
in  Subroutine  PENT 


Units 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY  (Cont'd.) 

Abbreviation 

or  symbol  Mathenatlcal 

Model 

Definition 

Units 

NTIME 

Number  of  time  intervals  at 
which  presented  and  vulner¬ 
able  areas  are  to  be 
computed 

NUM 

Number  of  encounters  with 
penetration  times  stored  in 
time  arrays  for  one  shot 
line 

PAREA(I) 

I<500 

% 

Presented  area  for  the  Ith 
component 

varies 

PCV 

Percent  of  vulnerable  area 
used  for  one  of  the  compo¬ 
nent  vulnerable  area 
summaries 

•  •• 

PK 

P,.  Pe, 

Component  probability  of 
kill  from  one  encounter, 
then  converted  to  component 
probability  of  kill  on  one 
encounter  and  survival  on 
all  previous  encounters 

PKl 

••• 

Time  at  which  the  maximum 
possible  Pk  for  a  component 
will  be  achieved 

seconds 

PK2 

••• 

Minimum  time  needed  to 
achieve  a  nonzero  Pk  for  a 
component  in  a  time  interval 

seconds 

PK3 

^M 

Time  needed  to  achieve  the 
maximum  Pk  for  a  component 
in  a  time  interval. 

seconds 

PKC(I) 

I  <100 

Component  probability  of 
kill  for  the  first  through 

Ith  encounters  on  a  shot 
line 

••• 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY  (Continued) 

Equivalent  in 


Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

PKNK(I) 

I<500 

Component  number  for  the  Ith 
component  with  Pk  =  0.0  for 
all  shot  lines 

PKS(I) 

I<10 

Probability  of  kill  for  the 
Ith  system  of  singly  vulner¬ 
able  components 

PKTIME(J,I) 
J£10,  I<100 

^N 

Time  required  to  penetrate 
from  the  beginning  of  a  shot 
line  to  the  depth  for  a  Pk  * 
PKVAL(J,I)  for  the  Ith  shot 
line  encounter 

PKVAL(J,I) 
J<10,  I<100 

Pk  associated  with  penetra¬ 
tion  to  a  specified  depth 
for  the  Ith  component 

PLS(I) 

I<100 

^L 

Time  required  to  penetrate 
from  the  beginning  of  a  shot 
line  to  the  depth  necessary 
to  perforate  the  Ith  shot 
line  encounter 

PMULT(I,J) 
I£10,  J£10 

System  probability  of  kill 
for  the  singly  vulnerable 
components  in  system  I  at 
the  end  of  the  Jth  time 
interval 

PMX 

••• 

Shot  line  probability  of 
kill  excluding  multiply 
vulnerable  components 

PRNT(1,J) 

J<500 

Shot  line  y-coordinate  on 
the  viewing  plane  for  an 
encounter  with  the  Jth 
component 

PRNT(2,J) 

J<500 

Shot  line  z-coordinate  on 
the  viewing  plane  for  an 
encounter  with  the  Jth 
component 

Units 


seconds 


seconds 


inches 


inches 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY  (Continued) 

Equivalent  In 


Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

Units 

PRNT(3,J) 

J<500 

Maximum  probability  of  kill 
of  all  shot  line  encounters 
with  the  Jth  component, 
maximum  of  PKC(II) 

PRNT(4,J) 

J<500 

••• 

Minimum  time  to  achieve 
PRNT(3,J)  for  the  Jth 
component 

seconds 

Rl(J.I) 

J<10,  I£100 

Shot  line  y-coordinate  on 
the  viewing  plane  when  the 

Ith  set  of  array  elements 
are  defining  a  new  shot 
line — R1(1,J);  otherwise, 
the  time  needed  to  pene¬ 
trate  to  the  depth  for  a 

Pk  -  PKVAL(J,I)  for  the 
encounter 

R3(I) 

I<200 

When  the  Ith  set  of  array 
elements  are  defining  a  new 
shot  line,  R3(I)  equals  0.0; 
otherwise,  the  minimum  time 
needed  to  perforate  the 
encountered  component 

or 

seconds 

RVRS 

Shot  line  reverse  flag,  real 
form  of  IRVRS: 

“  0.0;  normal  shot  line 
=  1.0;  reversed  shot  line 

S AREA (I) 

I<10 

— 

Presented  area  for  the  Ith 
system  of  components 

varies 

SHW(1,J) 

J<200 

— 

y-coordinate  on  the  viewing 
plane  of  the  Jth  shot  line 

inches 

SH17(2,J) 

J<200 

— 

z-coordinate  on  the  viewing 
plane  of  the  Jth  shot  line 

inches 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 

ProgiTam  PEAKAY  (Continued) 

Equivalent  in 

Abbreviation  Mathematical  Definition  Units 

or  Symbol  Model 


SHWd.J) 
2<I£12,  J<200 


SNGSYS 


SPK 


SQFSQM 


For  the  (1-2)  time  interval  - 

and  the  Jth  shot  line:  shot 
line  Pk,  excluding  multiply 
vulnerable  components; 

”  -9.0:  no  critical 
encounters  on  Jth 
shot  line 

■  -9999.0:  end  of  view 
indicator 

Logical  variable  assigned  a  - 

value  of  .TRUE,  only  if  the 
component  is  in  a  system  and 
is  singly  vulnerable 

System  probability  of  kill  - 

for  one  system  including 
only  singly  vulnerable 
components  in  the  system 

Conversion  factor  to  convert  m^/ft^ 

from  square  feet  to  square 

meters 


Begin  time  for  a  flux  dis—  seconds 
tribution  interval 

Begin  time  of  a  time  inter-  seconds 
val,  time  already  used  in 
penetrating  previous  encoun¬ 
ters 


TE 

TEND 

TIMES (I) 
I<10 

TOTL 


End  time  for  a  flux  distri-  seconds 
bution  interval 

Time  since  the  beginning  of  seconds 
weapon  flux  emission 

Upper  time  of  the  Ith  time  seconds 
interval  and  lower  time  of 
the  (I  +  l)st  time  interval 

Total  target  presented  area  varies 


Change  1 
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CP 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PEAKAY  (Concluded) 


Abbreviation 
or  Symbol 

Equivalent  in 
Mathematical 
Model 

Definition 

Units 

TVA(I) 

I<10 

— 

Total  target  vulnerable  area 
at  the  Ith  time  interval 

varies 

TVAM(I) 

KIO 

— 

Total  target  vulnerable  area 
at  the  Ith  time  interval 

2 

m 

YMAX 

Maximum  y-coordinate  for  all 
shot  lines  from  the  viewing 
plane 

inches 

YMIN 

Minimum  y-coordinate  for  all 
shot  lines  from  the  viewing 
plane 

inches 

ZMAX 

Maximum  z-coordinate  for  all 
shot  lines  from  the  viewing 
plane 

Inches 

ZMIN 

Minimum  z-coordinate  for  all 
shot  lines  from  the  viewing 
plane 

inches 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PRERD  (Including  subroutines  FSORT  and  READIN) 
Equivalent  in 


Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

Units 

CINCH 

Conversion  factor  to  convert 
input  length  units  to  inches; 
<  0.0:  set  conversion 

factor  to  1.0  (units 
are  in  inches) 

^  0.0:  use  conversion  fac¬ 
tor  (units  are  not 
in  Inches) 

inches 

DEPTH (J, I) 
J<10,  I<500 

••• 

Penetration  depth  of  the  Ith 
component  to  achieve  a  Pk  = 
PKVAL(J,I) 

Inches 

FTIM(I) 

I<25 

— 

Time  values  for  the  flux 
distribution  table 

seconds 

FXCM(I) 

I<25 

— 

Flux,  weapon  intensity  at 
time  FTIM(I) 

watts/cm 

I 

In  Subroutine  FSORT,  the 
lower  subscript  of  two  com¬ 
pared  values 

lANA(I) 

I<500 

Analysis  type  for  the  Ith 
component ; 

®  1:  melt  in  place 
■  2;  melt  removed 

TASTER 

— 

Character  variable  for  an 
asterisk 

— 

IBLNK 

— 

Character  variable  for  a 
blank 

— 

ICHK 

— 

Character  variable  for  a 
check  mark 

— 

ICOMP(I) 

I<500 

— 

Component  identification 
number  for  the  Ith  component 

— 

IE(I) 

I<34 

Array  of  characters  with  a 
blank,  asterisk,  or  check 
mark  for  each  element 

Change  1 
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Program  PRERD 

Abbreviation 
or  symbol 

IFG(I) 

I<500 

IFMAX 

IPX 

IM 

IRD 

IRVRS 

ITAB(I) 

I<500 

ITC 

IU{I) 

N500 

IWR 

lYd) 

I<500 

K 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 

(Cont'd.) 

Equivalent  in 

Mathematical  Definition 

Model 


Criticality  flag  for  the  Ith 
component; 

*  0:  noncritical 
f  0:  critical 

Number  of  points  in  the  flux 
distribution  table 

Dimension  of  the  flux  distri¬ 
bution  arrays 

In  Subroutine  FSORT,  the 
upper  subscript  of  two  com¬ 
pared  values 

Device  number  for  the  input 
file 

Flag  for  reversing  the  shot 
line  direction; 

*  0:  normal  view 

*  1:  reversed  view 

Table  look-up  code  for  the 
Ith  component 

Dimension  of  the  component 
arrays 

Multiply  vulnerable  flag  for 
Ith  component; 

*  1:  multiply  vulnerable 

*  0:  singly  vulnerable 

Device  number  for  the  output 
file 

System  number  for  the  Ith 
component 

Number  of  comparisons  needed 
to  sort  the  sublists  by 
insertion  in  Subroutine  FSORT 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  PRERD 

(Concluded) 
Equivalent  in 

Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

Units 

M 

Increment  size  for  each  sub¬ 
list,  the  number  of  sublists 
in  Subroutine  FSORT 

MAT (I) 

I<500 

— 

Material  code  number  for  the 
Ith  component 

— 

NOCOMP 

— 

Number  of  components  in  the 
target  model 

— 

NOPNTS(I) 

I<500 

— 

Number  of  Pk  values  for  Ith 
component 

— 

NTMAX 

Number  of  time  intervals  in 
array  TIMAX,  number  of  time 
intervals  for  shot  line 
breakdown 

PKNBR 

Maximum  number  of  penetration 
depths  and  Pk  values  that  can 
be  specified  for  each  compo¬ 
nent;  the  first  dimension  of 
the  DEPTH  and  PKVAL  arrays 

PKVAL(J,I) 
J<10,  I<500 

Pk  associated  with  penetra¬ 
tion  to  a  specified  depth 
for  the  Ith  component 

“ 

RHOF(I) 

I<500 

— 

Ith  component  density  factor 

— 

THINFL(I) 

I<500 

— — — 

Ith  component  wall  thickness 
for  tubes  modeled  in  the 
Influence  mode 

meters 

TIMAX(I) 

I<25 

Upper  boundary  for  Ith  time 
interval,  for  shot  line  break¬ 
down  by  times  needed  to  reach 
the  maximum  shot  line  Pk 

second! 

TINIT(I) 

I<500 

— 

Initial  operating  tempera¬ 
ture  for  the  Ith  component 

°C 

Change  1 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 

Program  QKPK  (including  subroutines  BSRCH,  FSORT,  PROPY,  RAT,  RDATA,  REVRSE 
and  TABLE)  ’ 

Equivalent  in 

Abbreviation  Mathematical  Definition  Units 

or  Symbol  Model 


ALP 

ALPC 

ALPF 

ALPHAd.J) 
Kll,  J<16 

ALPHATd.J) 
I<IL,  J<9 

ALPT 

AVAL 

AZ 

CINCH 


Component  coupling  coeffi¬ 
cient,  absorption  factor 

Component  coupling  coeffi¬ 
cient  computed  as  a  product 
of  ALPF  and  ALPT 

Intensity  dependent  factor 
of  the  coupling  coefficient 

Intensity  dependent  factors 
of  the  coefficient  for  the 
Ith  material  code  and  the 
Jth  flux  argument 

Coupling  coefficient  correc¬ 
tion  factors  for  material 
thickness  for  the  Ith  mater¬ 
ial  code  and  the  Jth  thick¬ 
ness  argument 

Thickness  dependent  correc¬ 
tion  factor  of  the  coupling 
coefficient 

One  of  the  factors  used  to 
compute  the  arguments  in  the 
coupling  coefficient  inter¬ 
polation  schemes 


Attack  azimuth  angle 


degrees 


Conversion  factor  to  convert  inches/ 
input  length  units  to  inches;  unit 
£0.0:  set  conversion  fac-  length 
tor  to  1.0  (units  are 
in  inches) 

>  0.0;  use  conversion  factor 
(units  are  not  in 
Inches) 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 

Program  QKPK  (Continued) 


Abbreviation 
or  Symbol 

Equivalent  in 
Mathematical 
Model 

Definition 

Units 

CMETER 

“ 

Conversion  factor  to  convert 
input  length  units  to  meters 

meter/ 

unit 

length 

C0NDUC(I,1,K) 
I£ll,  K£10 

Temperature  arguments  for  the 
thermal  conductivity  of  the 
Ith  material  type;  Array 
element  (1,1,1)  is  the  number 
of  arguments  in  positions  K  = 
2,  3,  .  .  . 

°C 

CONDUC(I,2,K) 
I£ll,  K<10 

““  “ 

Thermal  conductivity  for  the 
Ith  material  code  at  the  Kth 
temperature  argument 

watts/m 

CP 

CPil 

Specific  heat  for  a  liquified  joules/ 
material  with  a  temperature  kgm  °C 
T*  +  T 

m 

CPS 

Cps 

2 

Solid  component  specific 
heat  at  the  average  temper¬ 
ature  T  +  T, 
m  1 

2 

joules/ 
kgm  °C 

CVAL 

Thermal  conductivity  inter¬ 
polated  from  the  CONDUC 
array,  a  function  of  temper¬ 
ature  and  material  type 

watts/m 

DENSIT(I) 

I<11 

— 

Component  density  for  the 

Ith  material  code 

kgm/m^ 

DEPTH (J, I) 

J<10,  I<500 

Penetration  depth  of  the  Ith 
component  to  achieve  a  Pk  = 
PKVAL(J,I) 

inches 

DISLFT 

— 

Distance  not  yet  penetrated 
in  an  encounter 

meters 

DP 

z 

Component  effective  thick¬ 
ness 

meters 

Change  1 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 


Abbreviation 
or  Symbol 

Equivalent  in 
Mathematical 
Model 

Definition 

Units 

DUM 

Dummy  variable  used  to  read 
a  value  from  the  LOS  file 
which  will  not  be  used 

EL 

— 

Attack  elevation  angle 

degrees 

EM 

Slope  of  one  of  the  coupling 
coefficient  functions  being 
interpolated  in  Subroutine 
PROPY 

FB 

— 

Weapon  flux  at  the  beginning 
of  a  time  interval 

,  2 

watts/ cm 

FE 

— 

Weapon  flux  at  the  end  of  a 
time  interval 

2 

watts/ cm 

FLX 

F 

Flux,  weapon  intensity,  rate 
of  energy  reception  per  unit 
of  area 

2 

watts/cm 

FTIM(I) 

I£25 

— 

Time  arguments  for  the  flux 
distribution  table 

seconds 

FXCM(I) 

1<25 

— 

Weapon  flux  at  time  FTIM(I) 

2 

watts/cm 

FXM(I) 

I<25 

— 

Weapon  flux  at  time  FTIM(I) 

2 

watts/m 

GRID 

— 

Grid  size  of  one  grid  square 
in  the  viewing  plane 

varies 

HEATFU(I) 

I<11 

Heat  of  fusion  for  a  compo¬ 
nent  with  the  Ith  material 
code 

joules/kgm 

11(1) 

I£200 

— 

Number  of  encounters  on  a  - 

shot  line  for  each  new  shot 
line;  otherwise,  the  compo¬ 
nent  number  in  the  encounter 
with  penetration  times 

PKTIME(J,I)  and  PLS(I)  (equals 

9999  to  indicate  end  of  view) 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 

Equivalent  in 


Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

Units 

lANA(I) 

1<500 

Analysis  type  of  the  Ith 
component ; 

=  1:  melt  in  place 
=  2:  melt  removed 

— — — 

IBEG 

Beginning  element  in  the 
interval  being  searched  in 
Subroutine  BSRCH 

— 

ICODE 

End  of  shot  line  indicator 
in  LOS  data  file; 

=  9:  last  encounter  on  the 
shot  line 

4  9:  not  last  shot  line 
encounter 

ICOMP(I) 

I<500 

--- 

Component  identification 
number  for  the  1th  component 

— 

IDVEH 

Unused  variable  on  first 
record  of  LOS  file 

— 

lECHO 

Echo  flag  for  QKPK  time  file; 

=  0:  penetration  times  not 
printed  on  device  IWR 
=  1:  penetration  times  also 
printed  on  device  IWR 

TEND 

End  element  in  the  interval 
being  searched  in  Subroutine 
BSRCH 

— 

IFG(I) 

I<500 

Criticality  flag  for  the  Ith 
component ; 

*  0:  noncritical  component 

0:  critical  component 

— — — 

IF  ILL 

Subscript  for  the  output 
arrays,  counts  the  number  of 
array  elements  which  are 
"full"  with  data  not  yet 
written  on  the  output  file 

Change  1 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 

Equivalent  in 

Abbreviation  Mathematical 

or  Symbol  Model 

IFLAG 

IFM  - 

IFMAX 

IFX 

IFXM 

IFXX  - 

IIN  - 

IM 

lOUT  - 

IR 

IRD 


Definition 


Subscript  in  the  LOG  array 
corresponding  to  the  last 
critical  encounter  number  on 
a  shot  line; 

=•  0:  shot  line  has  no 

critical  encounters 

One  less  than  the  number  of 
points  in  the  flux  distribu¬ 
tion 

Number  of  points  in  the  flux 
distribution  table 

Maximum  number  of  points 
allowed  in  the  flux  distri¬ 
bution,  the  array  dimension 
(»25) 

Subscript  for  the  next  to 
last  element  in  the  MAXT 
array  (*26) 

Subscript  for  the  last 
element  in  the  MAXT  array 
(-27) 

Device  number  for  the  LOS 
file  (-1) 

Larger  of  two  subscripts  of 
compared  values  in  Subroutine 
FSORT 

Device  number  for  the  binary 
penetration  times  output 
file  (=2) 

Index  pointing  to  the 
current  flux  level  in  the 
flux  distribution  table 

Device  number  for  the  QKPK 
formatted  input  file  (=5) 


Units 
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Program  QKPK 

Abbreviation 
or  Symbol 

IRNOW 

IRUSED 

IRVRS 


ITAB(I) 

I<500 


ITC 

ITER 

IU(I) 

I<500 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


(Continued) 

Equivalent  in 

Mathematical  Definition 

Model 


Index  pointing  to  the  current 
flux  level  while  executing 
the  encounter  loop 

Index  pointing  to  last  flux 
level  used  while  executing 
the  encounter  loop 

Reverse  shot  line  flag; 

=  0:  normal  shot  line  pro¬ 
cessing 

*  1:  process  shot  line  with 

encounters  in  reverse 
order 

Table  look-up  code  for  the 
Ith  component; 

=  I;  plexiglass 
=  2:  triplex  dielectric 
-  3:  fibrite 
=  A:  rubber 

*  5:  glass 

=  6:  fiber  glass 
“  7;  pyroceram 
=  8;  glass  fiber  epoxy 
=  9;  graphite  epoxy 

Dimension  of  the  component 
information  arrays  (=*500) 

=  0:  compute  all  encounter 
properties  in  Subrou¬ 
tine  PROPY 

»  1:  compute  only  the  tem¬ 
perature  dependent 
properties  in  Subrou¬ 
tine  PROPY 

Multiply  vulnerable  flag  for 
the  Ith  component; 

=  0:  singly  vulnerable 

*  1:  multiply  vulnerable 


Units 


Change  1 
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I 


■ 


n  fp 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 

Equivalent  in 

Abbreviation  Mathematical 

or  Symbol  Model 

I^TR 


IY(I) 

I<500 

J 


JCOMP 


JF 


JFF 


JH(1,J) 

J<170 


JH(2,J) 

11170 


JH(3,J) 

J<170 

JH(4,J) 

I<170 

JH(5,J) 

I<170 


Definition 


Device  number  for  the  QKPK 
formatted  output  file  (=6) 

System  number  for  the  Ith 
component 

Subscript  for  the  component 
information  arrays  corres¬ 
ponding  to  the  encountered 
correspondent 

Encountered  component  identi 
fication  number 

Subscript  for  flux  level  at 
the  end  of  a  time  interval 

Subscript  for  flux  level  at 
the  end  of  the  previous 
time  interval 

End  of  shot  line  flag  in  the 
LOS  Input  file; 

=  9:  end  of  shot  line 
#  9:  not  end  of  shot  line 

Encountered  component  number 
or  when  -  0,  the  end  of  view 
flag  for  the  LOS  data  file 

Component  LOS  thickness 
multiplied  by  100 

1000.0  times  the  secant  of 
the  entrance  obliquity  angle 

1000.0  times  the  secant  of 
the  exit  obliquity  angle 
(When  the  LOS  file  is  assem¬ 
bled  by  using  Program  CONMAG 
JH(4,J)  -  JH(5,J)) 


Units 


inches/ 100 
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Program  QKPK 

Abbreviation 
or  Symbol 

JHT(I) 

I<100 

K 


LOC(I) 

KlOO 


M 


MAT(I) 

I<500 


MAIL 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


(Continued) 

Equivalent  in 

Mathematical  Definition 

Model 


Component  identification 
number  for  the  Ith  encounter 
on  a  shot  line 

In  Subroutine  FSORT,  the 
number  of  comparisons  needed 
to  sort  M  sublists  by  inser¬ 
tion 

Subscript  in  the  component 
information  arrays  for  the 
component  in  the  Ith  shot 
line  encounter 

Increment  size  for  each  sub¬ 
list,  the  number  of  sublists 
in  Subroutine  FSORT 


Matetial  code  for  the  Ith 
component; 


=  1; 

2024  aluminum  painted 

surface 

-  2: 

7075  aluminum  painted 

surface 

=  3: 

5456  aluminum  painted 

surface 

*  4: 

6AL4V  titanium  painted 

surface 

=  5: 

pure  titanium  painted 

surface 

®  6: 

VM65~1  magnesium  alloy 

painted  surface 

-  7: 

ML5  magnesium  alloy 

painted  surface 

«  8; 

AZ31B  magnesium  alloy 

painted  surface 

“  9; 

EI435  nickel-chromium 

alloy  painted  surface 

-  10: 

304  stainless  steel 

painted  surface 

11:  copper  bare  surface 


Material  code  for  the 
encountered  component 


Units 


Change  1 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 

Equivalent  in 

Abbreviation  Mathematical 

or  Symbol  Model 

MAXT(I) 

I<25 

MAXT(26)  - 

MAXT(27)  - 

MVAL 

N 


NCRIT 

NENC 

NOPNTS(I) 

I<500 

NSL 

NTMAX 

OBQ(I) 

I£100 


Definition 


Number  of  shot  lines  that 
reach  their  maximum  Pk  during 
the  Ith  time  interval 

The  number  of  shot  lines  that 
reach  their  maximum  Pk  after 
the  last  time  interval 

Number  of  noncritical  shot 
lines,  number  of  shot  lines 
with  zero  critical  encounters 

Subscript  of  the  last  temper¬ 
ature  argument  in  the  CONDUC 
or  SPECIF  arrays 

Subscript  of  the  component 
Information  arrays  corres¬ 
ponding  to  the  encountered 
component  in  Subroutine  PROPY 
(equivalent  to  J  in  Subroutine 
RAT) 

Number  of  encounters  with 
critical  components  on  a 
shot  line 

Number  of  encounters  on  a 
shot  line 

Number  of  Pk  values  for  Ith 
component 

Number  of  shot  lines 

Number  of  time  intervals  for 
breakdown  of  the  shot  line 
by  the  times  required  to 
reach  maximum  shot  line  Pk 

Secant  of  the  entrance 
obliquity  angle  for  the  Ith 
shot  line  encounter 


Units 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK 

(Continued) 

Equivalent  in 

Abbreviation 

Mathematical 

Definition 

Units 

or  Symbol 

Model 

PEAKF 

— 

Weapon  intensity. 

flux 

watts/i 

PKNBR 

— 

Maximum  number  of 

penetration 

— 

depths  and  Pk  values  that  can 
be  specified  for  each  compo¬ 
nent;  the  first  dimension  of 
the  DEPTH  and  PKVAL  arrays 

y-coordinate  in  the  viewing  inches 
plane  for  each  new  shot  line;  or 
otherwise,  the  time  needed  to  seconds 
penetrate  from  the  start  of 
the  shot  line  to  the  depth 
DEPTH (1,1)  in  the  encounter 
with  component  number  11(1) 

z-coordinate  in  the  viewing  inches 
plane  for  each  new  shot  line;  or 
otherwise,  the  time  needed  to  seconds 
penetrate  from  the  start  of 
the  shot  line  to  the  depth 
DEPTH (2, I)  in  the  encounter 
with  component  number  11(1) 

Time  needed  to  penetrate  seconds 

from  the  start  of  the  shot 
line  to  the  depth  DEPTH(J,I) 
in  the  encounter  with  com¬ 
ponent  number  11(1) 

PKVAL (J,  I)  Pic  Pk  associated  with  penetra-  - 

J<^10,  I<200  tion  to  a  specified  depth 

for  the  Ith  component 

Equals  zero  for  each  new  shot  - 

line;  otherwise,  the  time  or 

needed  to  penetrate  from  the  seconds 
start  of  the  shot  line 
through  the  LOS  thickness  of 
component  number  11(1) 

RADEXP  -  Unused  variable,  read  on  - 

first  record  of  the  LOS  file 


PLS(I) 

I<200 


PKTIME(J,I) 
J<10,  I<200 


PKTIME(1,I) 

1<200 


PKTIME(2,I) 

I<200 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK  (Continued) 

Equivalent  in 

Abbreviation  Mathematical 
or  Symbol  Model 

RATE  R 


RATES (I) 
I<100 


RATESd.J) 
I<100,  J<25 


RB.JI 


RHO  p 

RHOF(I) 

I<_500 


RHX 

SH(1,J) 

j<no 

SH(2,J) 

J£170 

SPECIF (I, 1,K) 
I<11,  2£K<10 


STAR 


Definition 


Penetration  rate  of  a 
Directed  High  Energy  Weapon 
against  a  component 

Penetration  rate  for  the  Ith 
shot  line  encounter  in  Sub¬ 
routine  RAT  (equivalent  to 
RATESd.J)  for  Jth  flux 
level  in  Program  QKPK) 

Penetration  rate  for  the  Ith 
shot  line  encounter  at  the 
Jth  level  in  the  flux  dis¬ 
tribution 

Average  penetration  rate  for 
complete  perforation  of  a 
specific  component 

Component  material  density 

Density  factor  (0£RHOF_<1)  for 
the  Ith  component;  used  to 
compute  the  actual  component 
LOS  thickness  for  components 
not  modeled  in  the  influence 
mode 

Component  material  density 

Shot  line  y-coordinate  in 
the  viewing  plane 

Shot  line  z-coordinate  in 
the  viewing  plane 

Specific  heat  for  the  Ith 
material  code  at  the  Kth 
temperature  argument 

Maximum  energy  absorption 
rate  for  an  encounter  in 
which  the  surface  temperature 
exceeds  the  vapor  temperature 


Units 

m/sec 

ra/ sec 

m/sec 

m/ sec 
kgm/m^ 


3 

kgm/m 

varies 

varies 

joules/ 
kgm  °C 

watts/m 
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LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


Program  QKPK 

(Continued) 

Equivalent  in 

Abbreviation 
or  Symbol 

Mathematical 

Model 

Definition 

Units 

SVAL 


T 

TB 


TE 


TEMP 

THINFL(I) 

I<500 


THRATl(I) 

I<500 


THRAT2(I) 

I<500 


TIMAX(I) 

I<25 


TINIT(I) 

I<500 

TLOS 


Specific  heat  for  an  encoun-  joules/ 
ter  in  Subroutine  PROPY  kgm  °C 

(equivalent  to  CP  in  Sub¬ 
routine  RAT) 

Temperature  of  a  component  °C 

Beginning  time  of  a  time  seconds 

interval 

Ending  time  of  a  time  inter-  seconds 

val 

Component  temperature  °C 

Wall  thickness  for  the  Ith  varies 
component  modeled  in  the 
influence  mode 


Maximum  of  the  ratios  - 

(DEPTH(1,I)*0BQ/L0S)  for 
all  encounters  of  the  Ith 
component 

Maximum  of  the  ratios  - 

(DEPTH(NOPNTS(I) , I)*OBQ/ 

LOS)  for  all  encounters 
of  the  Ith  component 

Upper  boundary  on  the  Ith  seconds 

time  interval  for  breakdovm 

of  the  shot  lines  by  times 

needed  to  reach  maximum  shot 

line  Pk;  lower  boundary  of  the 

Ith  interval  is  TIMAX(I-l)  or 

0.0  for  the  first  Interval 

Initial  operating  tempera-  °C 

ture  for  the  Ith  component 

Time  for  complete  perfora-  seconds 

tion  of  a  component  from  the 
end  of  the  previous 
encounter 


Change  1 
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Program  QKPK 

Abbreviation 
or  Symbol 

TMAX 

TMAXl 

TMELTd,  1) 
I<11 

TMELTd, 2) 
I<11 

TMLT 

TNOW 

TSTAR 

TUSED 

TVAP 

XK 

XLAMBD 

XLOS(I) 

I<100 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


(Continued) 

Equivalent  in 

Mathematical  Definition  Units 

Model 

-  Minimum  time  required  to  seconds 

complete  all  encounters  on 
a  shot  line 


T 

m 


T* 


T 


V 


k 


Earliest  time  that  the  maxi-  seconds 
mum  shot  line  Pk  will  occur 

Melting  temperature  of  a  °C 

component  with  the  Ith 
material  code 

Vapor  temperature  of  a  com-  °C 
ponent  with  the  Ith  material 
code 

Component  melting  temperature  °C 


Time  at  which  a  component  seconds 

is  perforated  after  the 
beginning  of  the  shot  line 

Component  outer  surface  °C 

temperature 


Time  used  from  the  start  of  seconds 
the  shot  line  to  perforate 
a  component 

Component  vaporization  °C 

temperature 


Thermal  conductivity  of  the  watts/m  °C 
component 


X  Heat  of  fusion  for  a  compo-  joules /kgm 

nent,  the  energy  used  to 
change  from  the  solid  to  the 
liquid  state 


Actual  component  LOS  thick-  inches 
ness  for  the  Ith  shot  line  or 

encounter  meters 
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Program  QKPK 

Abbreviation 
or  Symbol 

XVAL 

YMAX 

YMIN 

YVAL 

ZMAX 

ZMIN 


LIST  OF  ABBREVIATIONS  AND  SYMBOLS 
(SIMULATION  MODEL) 


(Concluded) 

Equivalent  in 

Mathematical  Definition 

Model 


Argument  increment  size  in 
the  coupling  coefficient 
interpolation  routines  of 
Subroutine  PROPY 

Maximum  y-coordinate  for  all 
shot  lines  in  the  viewing 
plane 

Minimum  y-coordinate  for  all 
shot  lines  in  the  viewing 
plane 

Function  increment  size  in 
the  coupling  coefficient 
interpolation  routines  in 
Subroutine  PROPY 

Maximum  z-coordinate  of  all 
shot  lines  in  the  viewing 
plane 

Minimum  z-coordinate  of  all 
shot  lines  in  the  viewing 
plane 


Units 

watts/m 

or 

meters 


varies 


varies 


varies 


varies 


Change  I 
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PROGRAM  PEAKAY  INPUT 

Program  PEAKAY  requires  two  Input  files.  A  short  formatted  file 
with  the  time  interval  at  which  vulnerable  areas  are  to  be  computed  is 
read  from  Logical  Unit  Number  5.  A  binary  penetration  times  file, 
which  is  the  output  of  Program  QKPK,  is  read  from  Logical  Unit  Number  2. 
The  user  must  assemble  the  formatted  input  file. 


PEAKAY  Formatted  Data  Deck 


This  deck  contains  two  cards;  the  first  contains  the  number  of  time 
intervals  and  a  component  vulnerability  area  flag.  The  second  contains 
the  upper  boundaries  of  the  time  intervals.  There  must  be  no  more  than 
10  time  intervals.  The  vulnerability  area  flag  determines  whether  the 
vulnerable  areas  computed  for  the  components  are  true  values  (flag  =  1) 
or  incremental  values  (flag  =  0).  The  first  time  interval  is  assumed  to 
start  at  time  0.00.  All  other  time  intervals  begin  when  the  preceding 
interval  ends.  The  times  on  the  second  card  must  be  in  ascending  order. 
Figure  5-2  shows  the  PEAKAY  data  deck  setup  using  cards  PKl  and  PK2. 


FIGURE  5-2.  PEAKAY  Data  Deck  Setup. 
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PEAKAY  Binary  Input  File 

The  penetration  times  for  each  encounter  along  each  shot  line  are 
read  from  the  PEAKAY  binary  input  file.  These  data  are  the  output  of 
Program  QKPK.  The  records  vary  in  length  and  the  total  number  of 
records  depends  on  the  amount  of  data.  There  are  three  types  of  records 
on  this  file. 


Viewing  Plane  Description 

Figure  5-3  shows  the  format  for  the  first  record  of  the  binary  file 
which  contains  nine  words.  The  data  on  this  record  include  the  attack 
aspect  angles,  grid  size,  minimum  and  maximum  shot  line  coordinates,  and 
the  number  of  components  in  the  target  model. 


Component  Data  and  Flux  Distribution 

This  is  the  second  record  on  the  file  and  it  contains  four  arrays  of 
component  information,  the  shot  line  reverse  flag,  the  number  of  flux 
distribution  points,  and  the  time  and  flux  values  from  the  flux  dis¬ 
tribution.  It  has  4*N0C0MP  +  2  +  2*IFMAX  words.  Figure  5-4  lists  the 
parameters  and  definitions  on  this  record. 


Penetration  Times 

Figure  5-5  shows  the  format  for  the  third  and  all  subsequent  records 
on  this  file.  It  contains  three  arrays  with  2400  total  words  per  record. 
The  second  subscript  of  the  first  array  corresponds  to  the  subscripts  of 
the  other  two  arrays.  They  define  either  a  shot  line  or  an  encounter 
along  a  shot  line.  When  the  value  of  an  element  of  the  fourth  array,  II, 
equals  9999,  the  end  of  all  data  for  the  view  is  indicated  and  the  rest 
of  the  data  on  the  binary  input  file  is  not  processed. 
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Number 

Number 
of  Words 


2 

5  ( 

4*N0C0MP  +  2 

\ 

2400 

1 

+  2*IFMAX 

Last 

2400 


Record  Number  1 


Definition 


degrees  Attack  azimuth  angle 

degrees  Attack  elevation  angle 

inches  Grid  cell  size 

Currently  not  used 

Maximum  y-coordinate  for  all  shot 
lines 

Minimum  y-coordinate  for  all  shot 
lines 

Maximum  z-coordinate  for  all  shot 
lines 

Minimum  z-coordinate  for  all  shot 
lines 

Number  of  components  in  the  target 
e 


FIGURE  3-3.  PEAKAY  Binary  Input,  Viewing  Plane  Description 
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Record 

Number 

1 

2 

^  ( 

Number 
of  Words 

9 

4*N0C0MP  +  2 
+  2*IFMAX 

2400  j 

Record  Number  2 

Word 

Parameter 

Units 

Definition 

1 

ICOMP(l) 

— 

Component  identification 
number  for  first  component 

2 

IFG(l) 

— 

Criticality  flag  for  the  first 
component: 

=0:  noncritical 
^0:  critical 

3 

IY(1) 

— 

System  number  for  the  first 
component 

4 

iu(i). 

— 

Vulnerability  flag  for  first 
component: 

=D:  singly  vulnerable 
=1:  multiply  vulnerable 

5 

IC0MP(2) 

Component  identification 
number  for  second  component 

• 

IC0MP( NOCOMP) 

Component  identification 
number  for  N0C0MPi;i  component 

• 

I FG( NOCOMP) 

— 

Criticality  flag  for  the 
NOCOMPi«  component 

• 

I Y (NOCOMP) 

_ 

••• 

System  number  for  the  NOCOMPrn 
component 

FIGURE  5-4,  PEAKAY  Binary  Input,  Component  Data 
and  Flux  Distribution  (Page  1  of  2). 
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Record 

Number 

1 

2 

^  ( 

Number 
of  Words 

9 

4*N0C0MP  +  2 
+  2*IFriAX 

2400 

! 

Record  Number  2 

Word 

Parameter 

Units 

Definition 

4*N0C0MP 

lU (NOCOMP) 

— 

Vulnerability  flag  for 

NOCOMPt^  component 

• 

IRVRS 

— 

Shot  line  reverse  flag: 

*0:  normal  encounter  order 
=1 :  reversed  encounter  order 

4*N0C0MP+2 

iFmx 

— 

Number  of  points  in  the  flux 
distribution  table 

• 

FTIM(l) 

seconds 

First  time  argument  in  the 
flux  distribution 

« 

FXCM(l) 

2 

watts/cm 

Weapon  intensity,  flux  at  time 
FTIM(l) 

• 

FTIM(2) 

seconds 

Second  time  argument  in  the 
flux  distribution 

• 

FXCM(2) 

2 

watts/cm 

Weapon  intensity,  flux  at  time 
FTIM(2) 

« 

0 

FTIM(IFMAX) 

seconds 

Last  time  argument  in  the 
flux  distribution 

4*N0C0MP 

+2+2*IFMAX 

FXCM(IFMAX) 

watts/cm 

Weapon  intensity,  flux  at  time 
FTIM(IFMAX) 

FIGURE  5-4,  PEAKAY  Binary  Input,  Component  Data 
and  Flux  Distribution  (Page  2  of  2). 
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Record 

Number 

Number 
of  Words 


1 

2 

3 

9 

4*N0C0MP  +  2 

2400 

_ +  2*IFMAX  _ 

Record  Number  3  through  Last 

Word 

Parameter 

Units 

Definition 

1 

RKl.l) 

inches 

y-coordinate  of  a  new  shot  line 

or 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH(l)  in 
an  encounter  with  component  11(1) 

2 

Rl(2.1) 

inches 

z-coordinate  of  a  new  shot  line 

or 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH(2)  in 
an  encounter  with  component  11(1) 

3 

Rl(3,l) 

• 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH(3)  in 
and  encounter  with  component  11(1) 

10 

• 

• 

Rl(10,l) 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH(IO)  in 
an  encounter  with  component  11(1) 

FIGURE  5-5.  PEAKAY  Binary  Input*  Penetration  Times  (page  I  of  4). 
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Record  1 

2 

3  ( 

Number 

Number  9 

4*N0C0MP  +  2 

I 

2400 

of  Words? 

+  2*IFMAX 

[  LAST 

\  2400 

• 

Record  Number  3  through  Last 

Word 

1 

Parameter 

Units 

Definition 

11 

Rid, 2) 

Inches 

y-coordinate  of  a  new  shot  line 

or 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH(l)  in 
an  encounter  with  component  11(2) 

12 

Rl(2,2) 

inches 

z-coordinate  of  a  new  shot  line 

or 

• 

• 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH (2)  in 
an  encounter  with  component  11(2) 

• 

• 

• 

20 

* 

• 

• 

Rl(10,2) 

seconds 

• 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH (10)  in 
an  encounter  with  component  11(2) 

• 

• 

2000 

Ri(10,200; 

seconds 

• 

• 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  to  normal  depth  DEPTH (10)  in 
an  encounter  with  component  11(200) 

FIGURE  5-5.  PEAKAY  Binary  Input,  Penetration  Times  (page  2  of  4). 
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Record 

Number 

Number 
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4*N0C0MP  +  2  2400 


Record  Number  3  through  Last 


Word  Parameter  Units 


Definition 


Number  of  encounters  on  a  new  shot 
line 


Component  in  the  encounter  with  penetration 
times  Rl(l,l),  Rl(2,l),  .  .  •»  Rl(10,l), 
and  R3(l)  (the  subscript  in  the  ICOMP  array 
for  the  corresponding  component  identif icatior 
number) 


Equals  9999  to  indicate  the  end  of  view 


Number  of  encounters  on  a  new  shot 
line 


Component  in  the  encounter  with  penetration 

times  Rl(l,200),  Rl(2,200) . Rl(10,200) 

and  R3(200)  (the  subscript  in  the  ICOMP 
array  for  the  corresponding  component 
identification  number) 


Equals  9999  to  indicate  the  end  of  view 
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PROGRAM  PRERD  INPUT 

One  formatted  deck  is  the  only  input  necessary  for  Program  PRERD. 
It  is  read  from  Logical  Unit  Number  5  during  execution  of  Subroutine 
READIN.  The  data  on  these  cards  must  be  assembled  by  the  user  and  are 
very  important  in  order  to  obtain  good  results  from  QKLOOK.  The 
importance  and  complexity  of  these  data  are  the  reasons  that  Program 
PRERD  must  be  used.  It  will  flag  possible  errors  in  this  data  deck  so 
that  the  user  can  correct  errors  before  executing  Program  QKPK  which 
reads  the  same  deck.  Figure  5-6  shows  the  data  deck  setup  with  the 
eight  types  of  cards  in  this  deck. 


Number  of  Components 

This  is  the  first  card  in  the  deck  and  contains  the  number  of  com¬ 
ponents  in  the  target  model.  The  array  dimensions  currently  allow  a 
maximum  of  498  components. 


Reverse  Flag  and  Conversion  Factor 

This  is  the  second  card  in  the  deck  and  contains  the  shot  line 
reverse  flag  and  a  length  units  conversion  factor.  The  reverse  flag 
enables  a  user  to  obtain  data  from  the  view  used  by  the  shot  line  gener¬ 
ating  program  or  the  opposite  view  without  a  second  execution  of  the  shot 
line  generating  program.  When  the  shot  lines  are  being  reversed  using 
data  from  Program  MAGIC,  the  new  entrance  obliquity  angles  equal  the  old 
entrance  obliquity  angles,  because  Program  MAGIC  output  does  not  include 
exit  obliquity  angles.  The  length  conversion  factor  allows  the  input 
lengths  to  be  in  any  one  unit  of  measure.  The  data  card  description 
lists  the  input  variables  from  both  files  which  are  converted  using 
CINCH. 


Number  of  Flux  Distribution  Points 


The  third  data  card  contains  the  number  of  points  in  the  flux  dis¬ 
tribution  table  which  is  on  card  types  QK4  and  QK5.  The  current  program 
allows  a  maximum  of  25  flux  distribution  points. 


Flux  Levels 


This  card  type  is  fourth  in  the  data  deck  and  contains  the  weapon 
flux  levels  at  each  point  in  the  flux  distribution.  Flux  levels  must 
be  greater  than  0.00  and  less  than  or  equal  to  60000.0  watts/cm2.  There 
will  be  one,  two,  or  three  of  these  cards  consecutively  depending  on 
the  number  of  flux  points,  IFflAX. 


5-19 


SHUT  (.IKK  TIME  INiERVAI.S  (I  CARD  fOR  EVERY  10  TIMES) 


FIGURE  5-6.  Progrnni  PRERD  Data  Deck  Setup 
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Flux  Time  Intervals 


One,  two,  or  three  of  these  cards,  depending  on  IFMAX,  follow  the 
flux  levels  in  the  data  deck.  The  times  in  the  flux  distribution  are 
listed  on  these  cards.  These  times  correspond  by  subscript  with  the 
flux  levels  on  card  type  QK4. 


Component  Information 

Cards  QK6  and  QK6A  are  included  for  every  component  in  the  target 
model,  NOCOMP.  QK6B  is  included  for  a  component  when  more  than  four 
penetration  depths  and  associated  Pk's  are  to  be  entered.  The  component 
identification  numbers  must  correspond  to  component  numbers  used  in  the 
target  model  for  the  shot  line  generating  program.  The  order  of  the 
components  in  the  deck  can  vary,  because  Subroutine  FSORT  is  used  to  sort 
these  data  into  ascending  order  by  component  number. 


Number  of  Shot  Line  Time  Intervals 


Card  QK7  contains  the  number  of  time  intervals  for  shot  line  break¬ 
down  by  times  required  to  reach  maximum  shot  line  Pk.  This  and  the  last 
card  type  (QK7  and  QK8)  are  optional  input.  If  cards  QK7  and  QK8  are 
not  included,  the  values  from  cards  QK3  and  QK5  will  be  used  as  default 
data.  If  card  QK7  is  included,  then  card  QK8  is  required. 


Shot  Line  Time  Intervals 


This  card  type  contains  the  time  intervals  for  shot  line  breakdown 
by  times  required  to  reach  maximum  shot  line  Pk.  One  time  is  listed 
for  each  time  interval.  The  beginning  time  for  each  interval  is 
assumed  to  equal  the  ending  time  of  the  preceding  interval.  The  first 
time  interval  begins  at  time  0.00.  There  are  one,  two,  or  three  of 
these  cards  depending  on  the  number  of  intervals,  NTMAX.  Card  type  QK8 
may  be  excluded  from  the  deck  if  card  QK7  is  also  excluded.  In  this 
case,  the  times  on  card  QK5  will  be  used  as  default  data. 
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*Any  one  length  unit  may  be  used  for  these.  They  are  converted  by  using  the  factor  CINCH. 
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QKPK  Binary  Input  File 


This  file  contains  encounter  information  for  each  encounter  along 
each  shot  line  from  one  viewing  plane.  It  may  be  the  output  from 
Program  CONMAG  (converts  MAGIC  to  QKLOOK  format),  FASTGEN,  or 
possibly  another  shot  line  generating  program,  the  order  of  data  on 
this  file  must  match  the  order  described  in  Figures  5-8  and  5-9  in  order 
to  execute  Program  QKPK.  Some  shot  line  generating  programs  may  produce 
data  for  more  than  one  view.  Program  QKPK  halts  after  processing  one 
view,  so  this  discussion  will  assume  the  record  containing  the  first 
end-of-view  flag,  is  the  end  of  the  input  file.  The  units  for  some  of 
the  parameters  in  this  file  are  described  as  "varies"  on  the  record 
description  forms.  These  are  the  parameters  which  are  converted  using 
CINCH,  the  conversion  factor  from  card  QK2  in  the  QKPK  formatted  data 
deck. 


Viewing  Plane  Description 

This  is  always  the  first  record  for  a  view  and  is  described  in 
Figure  5-8.  It  contains  nine  parameters  which  define  the  attack  angles, 
grid  size,  and  minimum  and  maximum  shot  line  coordinates  for  all  shot 
lines  in  the  viewing  plane. 


Encounter  Data 

Figure  5-9  depicts  the  data  arrangement  for  the  second  and  all  sub¬ 
sequent  records  on  this  binary  file.  These  data  describe  each  encounter 
along  each  shot  line.  The  shot  line  coordinates  are  duplicated  when  a 
shot  line  has  more  than  one  encounter.  The  last  encounter  for  a  shot 
line  is  indicated  when  JH(1,J)  equals  9.  If  the  encountered  component 
number  JH(2,J)  equals  0,  this  marks  the  end  of  all  data  for  the  view, 
and  all  subsequent  values  on  the  record  are  ignored.  The  record  contain¬ 
ing  the  end-of-view  flag  is  also  the  last  record  read  from  the  binary 
input  file. 
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Number 
of  Words 


4*N0C0MP  +  2 
+  2*IFMAX 


Last 

2400 


Record  Number  1 

Word 

1 

Parameter 

Units 

Definition 

AZ  degrees  Attack  azimuth  angle 

EL  degrees  Attack  elevation  angle 

GRID  inches  Grid  cell  size 

IDVEH  Currently  not  used 

YMAX  inches  Maximum  y-coordinate  for  all  shot  lines 

YMIN  inches  Minimum  y-coordinate  for  all  shot  lines 

ZMAX  inches  Maximum  z-coordinate  for  all  shot  lines 

ZMIN  inches  Minimum  z-coordinate  for  all  shot  lines 

NOCOMP  —  Number  of  components  in  the  target  model 


FIGURE  6-17.  Program  PEAKAY  Binary  Output,  File  1,  Viewing  Plane 
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of  words 


2 

j 

3 

4*N0C0MP  +  2 

2400 

+  2*IFMAX 

Last 

2400 


Record  Number  2 

Word 

Parameter 

Units 

Definition 

lY (NOCOMP) 

— 

System  number  for  NOCOMPrn 
component 

4*N0C0MP 

IU( NOCOMP) 

— 

Vulnerability  flag  for  NOCQMPth 
component 

IRVRS 

— 

Shot  line  reverse  flag 

=0:  normal  shot  lines 
=1:  reversed  shot  lines 

4*N0C0MP+2 

IFMAX 

— 

Number  of  points  in  the  flux 
distribution  table 

FTIM(l) 

seconds 

First  time  argument  for  the  flux 
distribution 

FXCM(l) 

2 

watts /cm 

Flux  at  time  FTIM(1 ) 

FTIM(2) 

seconds 

Second  time  argument  for  the 
flux  distribution 

1 

I  k  uurvw  w—  I  w  • 

(Page  2  of  3) . 
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Number 

Number 
of  Words 


2 

5  ( 

4*N0C0MP  +  2 

\ 

2400 

+  2*IFMAX 

Record  Number  2 

Word 

Parameter 

Units 

Definition 

1 - 

FXCM(2) 


watts/cm  Flux  at  time  FTIM(2) 


FTIM(IFMAX)  seconds  Last  time  argument  for  the  flux 

distribution 

4*N0C0MP  FXCM(IFMAX)  watts/cm^  Flux  at  time  FTIM(IFMAX) 
+2+2*IFMAX 


FIGURE  6-18.  Program  PEAKAY  Binary  Output,  File  1,  Components  and  Flux 
(Page  3  of  3). 
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Record  1 

Number 

Number  9 

of  Words 


4*N0C0MP  +  2 
+  2*IFMAX 


Record  Number  3  -  Last 


Word 

Parameter 

Units 

Definition 

1 

Rl(l.l) 

inches 

seconds 

y-coordinate  for  each  new  shot  line, 
otherwise  the  time  needed  to  pene¬ 
trate  to  depth  DEPTH(l) 

2 

Rl(2,l) 

inches 

seconds 

2-coordinate  for  each  new  shot  line, 
otherwise  the  time  needed  to  pene¬ 
trate  to  depth  DEPTH(2) 

3 

Rl(3,l) 

« 

• 

seconds 

the  time  needed  to  penetrate  to 
depth  DEPTH (3) 

10 

• 

Rl(10,l) 

seconds 

the  time  needed  to  penetrate  to 
depth  DEPTH (10) 

11 

R1(U2) 

inches 

seconds 

y-coordinate  for  each  new  shot  line, 
otherwise  the  time  needed  to  pene¬ 
trate  to  depth  DEPTH(l) 

12 

Rl(2,2) 

inches 

seconds 

z-coordinate  for  each  new  shot  line, 
otherwise  the  time  needed  to  pene¬ 
trate  to  depth  DEPTH(2) 

FIGURE  6-19.  Program  PEAKAY  Binary  Output,  File  1,  Encounter  Times 
(Page  1  of  3) . 
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Record 

Number 

Number 
of  Words 


1 

2 

9 

4*N0C0MP  +  2 

+  2*IFMAX 

Record  Number  3  -  Last 


Units 


Definition 


seconds  the  time  needed  to  penetrate  to 
depth  DEPTH (10) 

-  Equals  0.00  for  ea'ch  new  shot  line, 

seconds  otherwise  the  time  needed  to  per¬ 
forate  the  encountered  component 

-  Equals  0.00  for  each  new  shot  line, 

seconds  otherwise  the  time  needed  to  per¬ 
forate  the  encountered  component 


Equals  0.00  for  each  new  shot  line, 
seconds  otherwise  the  time  needed  to  per¬ 
forate  the  encountered  component 


Number  of  encounters  for  each  new 
shot  line,  otherwise  the  encountered 
component  number,  equals  9999.0  to 
indicate  end  of  view 


FIGURE  6-19.  Program  PEAKAY  Binary  Output,  File  1,  Encounter  Times 
(Page  2  of  3) • 
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FILE 

1 


E 

0 

F 


FILE 

2 


Record 

Number 

Number 
of  Words 


Record  Number  1  -  Last 

Word 

Parameter 

Units 

Definition 

1 

SHW(1,1) 

inches 

y-coordinate  on  the  viewing  plane  for  the 
first  shot  line 

2 

SHW(2,1) 

inches 

z-coordinate  on  the  viewing  plane  for  the 
first  shot  line 

3 

SHW(3,1) 

• 

• 

• 

Pk  at  first  time  increment  for  first  shot 
line, 

=  -9.0  if  no  critical  encounters  on  shot 
line 

=  -9999.0  if  end-of-view 

12 

SHW(12.1) 

Pk  at  tenth  time  for  first  shot  line 

=  -9.0  if  no  critical  encounters  on  shot 
line 

=  -9999.0  if  end-of-view 

13 

SHW(1,2) 

inches 

y-coordinate  on  the  viewing  plane  for  the 
second  shot  line 

14 

SHW(2,2) 

inches 

z-coordinate  on  the  viewing  plane  for  the 
second  shot  line 

_ 

FIGURE  6-20.  Program  PEAKAY  Binary  Output,  File  2,  Shot  Line  Pk's 
(Page  1  of  2). 
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FIGURE  6-28.  Program  PRERO  Output«  Flux  and  No  Time  Intervals. 


I’lCIIl^n;  6-29.  Program  PRKRI)  Output,  Errors  Flagged. 


FIGURE  6-30.  Program  PRERD  Output,  Critical  Component  Summary 
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FTGURE  6-31.  Program  PRERD  Output,  Component  Listing  by  Material  Type 


FIGURE  6-33.  Program  PRERD  Output,  Component  Listing  by  Analysis  Typo. 
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FIGURE  6-34.  Program  PRERD  Output,  Component  Listing  by  System  Number. 
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PROGRAM  QKPK  OUTPUT 

Execution  of  Program  QKPK  produces  two  output  files.  Formatted  out¬ 
put  is  printed  on  Logical  Unit  Number  6.  Figures  6-37  through  6-41  are 
examples  of  the  formatted  output  that  is  generated  during  a  normal  exe¬ 
cution  of  Program  QKPK.  Figures  6-42  through  6-47  are  examples  of  error 
messages  which  may  be  printed  during  program  execution.  A  binary  file 
containing  penetration  times  for  each  encounter  is  written  on  Logical 
Unit  Number  2.  Figures  6-48  through  6-50  display  the  formats  for  each 
record  on  the  binary  file. 


QKPK  Printed  Output 

The  first  page  of  QKPK  printed  output.  Figure  6-37,  lists  the  number 
of  components,  shot  line  reverse  flag,  input  lengths  conversion  factor, 
and  the  flux  distribution  table.  The  times  in  the  flux  table  are  in 
seconds  and  the  flux  levels  are  in  watts  per  square  centimeter.  This 
page  is  printed  during  execution  of  Subroutine  RDATA. 

Figure  6-38  is  an  example  of  the  second  page  of  QKPK  formatted  out¬ 
put.  It  is  printed  during  execution  of  Program  QKPK  after  the  component 
Information  arrays  have  been  sorted  into  ascending  order.  The  first 
ten  columns  correspond  to  the  parameters  on  cards  QK6,  QK6A,  and  QK6B  from 
the  QKPK  data  deck.  The  column  labeled  "CRD"  gives  the  component  subscript 
number  in  the  component  identification  number  array.  This  number  is  used 
to  identify  components  in  the  QKPK  binary  output  file. 

The  type  of  output  shown  in  Figure  6-39  is  printed  only  if  the  value 
of  the  flag  lECHO  is  set  to  a  value  other  than  zero.  These  data  are  a 
complete  copy  of  the  binary  output  file  and  may  fill  several  pages  of 
printout.  Figures  6-48  through  6-50  contain  definitions  for  those  para¬ 
meters  appearing  in  the  binary  output  file. 

Figure  6-40  is  an  example  of  the  next  page  of  QKPK  output  which  shows 
the  number  of  critical  shot  lines  that  reach  their  maximum  Pk  during  each 
time  interval.  The  time  intervals  are  those  specified  on  cards  QK8  in  the 
QKPK  data  deck.  The  times  in  the  table  are  expressed  in  seconds  and  the 
flux  levels  are  expressed  in  watts  per  square  centimeter.  The  last  time 
interval  represents  the  value  for  all  times  greater  than  the  last  start 
time.  Only  critical  shot  lines  are  included  in  the  breakdown.  A  critical 
shot  line  must  encounter  at  least  one  critical  component. 

An  example  of  the  last  page  of  QKPK  output  is  shown  in  Figure  6-41. 
WRITE  statements  in  the  Main  program  unit  are  used  to  print  this  page.  It 
lists  any  components  in  an  encounter  whose  LOS  thickness  is  less  than  either 
DEPTH(l)  or  DEPTH (NOPNTS ) .  If  the  thickness  is  less  than  DEPTH(l),  the 
encounter  Pk  is  0.00.  If  thickness  is  less  than  DEPTH (NOPNTS ) ,  thb  Pk  is 
less  than  1.00.  However,  a  thickness  equal  to  DEPTH(NOPNTS)  may  or  may  not 
equal  1.00;  this  depends  on  the  value  assigned  to  PKVAL (NOPNTS) .  Entries 
in  this  list  indicate  possible  errors  in  the  selection  of  DEPTH  values. 


Change  1 


6-54 


JTCG/AS-79-V-008 


Figure  6-42  presents  the  fatal  error  message  printed  during  execu¬ 
tion  of  Subroutine  RDATA  whenever  the  number  of  components  in  the  target 
model  (QKPK)  data  deck)  exceeds  array  dimensions.  The  current  program 
has  a  limit  of  498  components. 

The  fatal  error  message  shown  as  Figure  6-43  is  also  printed  during 
Subroutine  RDATA  execution.  This  error  occurs  whenever  a  flux  level 
less  than  or  equal  to  0.0  or  greater  than  60000.0  watts  per  square  cen¬ 
timeter  is  entered  from  the  data  card  deck. 

Figure  6-44  contains  a  warning  message  printed  whenever  an  encountered 
component  number  from  the  LOS  file  has  no  match  in  the  component  informa¬ 
tion  arrays.  This  warning  message  is  printed  during  execution  of  Sub¬ 
routine  BSRCH.  When  components  are  included  in  the  target  model  for  the 
shot  line  generating  program  but  not  in  the  QKPK  data  deck,  default  com¬ 
ponent  characteristics  are  assigned  as  follows: 

1.  Components  with  identification  numbers  less  than  1000  default 
to  a  2024  AL  noncritical  component  with  no  warning  message 
printed. 

2.  Components  with  identification  numbers  between  1000  and  6999 

or  greater  than  8000  default  to  a  7075  AL  noncritical  component 
with  a  warning  message  printed  as  shown  in  Figure  6-44. 

3.  Components  with  identification  numbers  between  7000  and  7999 
default  to  a  7075  AL  noncritical  component  with  no  warning 
message  printed. 

Figure  6-45  shows  a  non-fatal  error  message  printed  whenever  Sub¬ 
routine  TABLE  is  invoked  for  a  component  whose  table  look-up  code  is 
less  than  or  equal  to  0  or  greater  than  9.  A  penetration  rate  equal  to 
0.00  is  assigned  and  control  of  execution  returns  to  Subroutine  RATE. 

The  warning  message  includes  the  component  number  and  the  erroneous 
table  look-up  code. 

Figure  6-46  shows  a  fatal  error  message  which  is  printed  during  Sub¬ 
routine  TABLE  execution.  This  error  occurs  when  a  component  has  a  table 
look-up  code  equal  to  7  and  a  weapon  flux  level  less  than  374.0  watts 
per  square  centimeter. 

If  the  Main  QKPK  program  unit  detects  a  shot  line  with  more  than  100 
encounters,  an  error  message  (Figure  6-47)  is  printed  and  program  execu¬ 
tion  stops.  This  prevents  bounds  violations  in  the  encounter  data  arrays. 
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QKPK  Binary  Output 


Parameters  and  their  definitions  for  each  record  of  the  binary  pene¬ 
tration  times  file  are  listed  on  Figures  6-48  through  6-50.  The  first 
record  contains  nine  parameter  values  and  describes  the  viewing  plane. 
The  second  record  contains  values  for  the  component  information  arrays, 
the  shot  line  reverse  flag,  and  the  flux  distribution  table.  The  third 
and  all  subsequent  records  contain  the  encounter  penetration  times.  The 
last  record  on  this  file  contains  an  end-of-view  flag,  parameter  II 
equal  to  9999.  This  file  is  used  as  the  binary  input  file  for  Program 
PEAKAY. 


FIGURE  6-37.  Program  QKPK  Output,  Flux  Distribution. 
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FIGl/RK  6-38.  Program  QKPK  output.  Component  Information. 
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FIGURE  6-39.  Program  QKPK  Output,  Optional  Echo  of  Binary  File  Output. 


FIGURE  6-40.  Program  QKPK  Output,  Shot  Line  Breakdown 


K  Output,  More  Than  100  Encounters  on  a  Shot  Line 


Record  Number  1 

Word 

Parameter 

Units 

Definition 

1 

AZ 

degrees 

Attack  azimuth  angle 

D 

EL 

degrees 

Attack  elevation  angle 

B 

GRID 

inches 

Grid  cell  size 

B 

IDVEH 

- — 

Currently  not  used 

YMAX 

inches 

Maximum  y-coordinate  for  all  shot  lines 

B 

YMIN 

inches 

Minimum  y-coordinate  for  all  shot  lines 

■ 

ZMAX 

inches 

Maximum  z-coordinate  for  all  shot  lines 

8 

ZMIN 

inches 

Minimum  z-coordinate  for  all  shot  lines 

9 

NOCOMP 

Number  of  components  in  the  target  model 

FIGURE  6-48.  Program  QKPK  Binary  Output,  Viewing  Plane  Description. 
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Record 

Number 

1 

2 

3 

Number 
of  Words 

9 

4*N0CQMP  +  2 
+  2*IFMAX 

2400 

y )  .00 

Record  Number  2 

Word 

Parameter 

Units 

Definition 

1 

ICOMP(l) 

— 

Component  identification  number 
for  first  component 

2 

IFG(l) 

— 

Criticality  flag  for  the  first 
component 

*0:  noncritical 
;*0:  critical 

3 

IY(1) 

— 

System  number  for  the  first 
component 

4 

IU(1) 

Vulnerability  flag  for  first 
component 

=0:  singly  vulnerable 
®1 :  multiply  vulnerable 

5 

IC0MP(2) 

Component  identification  number 

• 

for  second  component 

• 

• 

ICOMP( NOCOMP) 

— 

Component  identification  number 
for  NOCOMPth  component 

• 

I FG{ NOCOMP) 

— 

Criticality  flag  for  the 

NOCOMPtrt  component 

IY( NOCOMP) 

— 

System  number  for  the  NOCOMPt/': 
component 

FIGURE  5-49.  Program  QKPK  Binary  Output,  Component  Data  and  Flux 
Distribution  (Page  1  of  2). 
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Number 
of  Words 


4*N0C0MP  +  2 
+  2*IFMAX 


Record  Number  2 


Word 

Parameter 

Units 

4*N0C0MP 

IU( NOCOMP) 

- — 

IRVRS 

— 

4*N0C0MP+2 

IFMAX 

• 

FTIM(l) 

seconds 

• 

FXCM(l) 

2 

watts/cm 

« 

FTIM(2) 

seconds 

FXCM(2) 

2 

watts/ cm 

FTIM( IFMAX) 

seconds 

4*N0C0MP 

+2+2*IFMAX 

1 _ 

FXCM( IFMAX) 

2 

watts/cm 

Definition 


Vulnerability  flag  for  NOCOMPtn 
component 

Shot  line  reverse  flag 

=0:  normal  encounter  order 
=1 :  reversed  encounter  order 

Number  of  points  in  the  flux 
distribution  table 


distribution 

Weapon  intens 
FTIM(l) 

Second  time  e 
distribution 

Weapon  inten; 
FTIM(2) 


distribution 

Weapon  intens 
FTIM(IFMAX) 


FIGURE  6-49.  Program  QKPK  Binary  Output,  Component  Data  and  Flux 
Distribution  (Page  2  of  2), 
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Record 

Number 

1 

2 

^  ( 

Number 

9 

4*N0C0MP  +  2 

2400  \ 

of  Words 

+  2*IFMAX 

Record 

Number  3  -  Last 

Word 

Parameter 

Units 

Definition 

1 

PKTIMEd.l) 

Inches 

y-coordinate  on  the  viewing  plane  for  a 
new  shot  line 

or 

seconds 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH(l)  in 
an  encounter  with  component  11(1) 

2 

PKTIME(2,L) 

inches 

z-coordinate  on  the  viewing  plane  for  a 
new  shot  line 

or 

seconds 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH(2)  in 
an  encounter  with  component  11(1) 

3 

PKTIME(3,1) 

seconds 

Time  needed  to  pentrate  from  the  start 
of  the  shot  line  to  depth  DEPTH (3)  in 

* 

• 

an  encounter  with  component  11(1) 

10 

PKTIME(10, 1) 

seconds 

Time  needed  to  penetrate  from  the  start 

of  the  shot  line  to  depth  DEPTH(IO)  in 
an  encounter  with  component  11(1) 

FIGURE  6-50.  Program  QKPK  Binary  Output,  Penetration  Times 
(Page  1  of  4) 
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Record 

Number 

1 

2 

^  ( 

Number 

9 

A*N0C0MP  +  2 

2400  \ 

of  Words 

+  2*IFMAX 

Record 

Number  3  -  Last 

Word 

Parameter 

Units 

Definition 

11 

PKTIME(1,2) 

inches 

or 

seconds 

y-coordinate  on  the  viewing  plane  for  a 
new  shot  line 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH (1)  in 
an  encounter  with  component  11(2) 

12 

PKTIME(2,2) 

inches 

or 

seconds 

z-coordinate  on  the  viewing  plane  for  a 
new  shot  line 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH (2)  in 

• 

• 

an  encounter  with  component  11(2) 

• 

• 

• 

20 

• 

• 

PKTIME(10,2) 

seconds 

• 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH(IO)  in 

• 

an  encounter  with  component  11(2) 

• 

• 

2000 

• 

• 

PKTIME(10,200) 

seconds 

Time  needed  to  penetrate  from  the  start 
of  the  shot  line  to  depth  DEPTH(IO)  in 
an  encounter  with  component  11(200) 

FIGURE  6-50.  Program  QKPK  Binary  Output,  Penetration  Times 
(Page  2  of  4) 
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Record 

Number 

1 

2 

3 

LAST 

Number 
of  Words 

9 

4*N0C0MP  +  2 
+  2*IFMAX 

2400 

)  1 

2400 

\ 


Record  Number  3  -  Last 

Word 

Parameter 

Units 

Definition 

401 

PLS(l) 

. — 

Equals  0.00  for  a  new  shot  line 

or 

or 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  through  the  LOS  thickness  of 
component  11(1) 

402 

PLS(2) 

— 

Equals  0.00  for  a  new  shot  line 

or 

or 

« 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  through  the  LOS  thickness  of 
component  11(2) 

« 

• 

600 

PLS(200) 

Equals  0.00  for  a  new  shot  line 

or 

or 

seconds 

Time  needed  to  penetrate  from  the  start  of 
the  shot  line  through  the  LOS  thickness  of 
component  11(200) 

FIGURE  6-50.  Program  QKPK  Binary  Output,  Penetration  Times 
(Page  3  of  4). 
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Record 

Number 

Number 
of  Words 


1 

2 

3  1 

f 

LAST 

9 

4*N0C0MP  +  2 
+  2*IFMAX 

2400 

■ 

2400 

Record 

Number  3  -  Last 

Word 

Parameter 

Units 

Definition 

Number  of  encounters  on  a  new  shot  line 

or 

Component  in  the  encounter  with  pen¬ 
etration  times  PKTIMEd.l),  PKTIME(2,1). 
.  .  PKTIMEdO,  1).  and  PLSd)  (the 
subscript  in  the  ICOMP  array  for  the 
corresponding  component  identification 
number 


Equals  9999  to  indicate  the  end  of  view 


Number  of  encounters  on  a  new  shot  line 

or 

Component  in  the  encounter  with  pen¬ 
etration  times  PKTIMEd ,  200)  , 
PKTIME(2,200),  .  .  PKTIMEdO,  200) , 
and  PLS(200)  (the  subscript  in  the 
ICOMP  array  for  the  corresponding 
component  identification  number 


Enuals  9999  to  indicate  the  end  of  view 


FIGURE  6-50.  Program  QKPK  Binary  Output,  Penetration  Times 
(Page  4  of  4) 
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SliRRnijTINF  flSQCHC  ICf)MP,\'ncnMP,  TTC  ) 

SHBROUTTnE  TfD  on  A  binary  search  on  integer  array  TCOMPCNOCnVP) 
YiHTCH  WAS  SORTFO  INTO  ASCENDING  ORDER,  AND  RETURN  THE 
LnCATION  J  where:  the  MATCH  ON  TCOMP  IS  EO'lMD 

COMMON  /PROP/  ALP,RHn,rP, TMlT,XLAMBD,PATE, JCOMP, J,np, XK, TVAP, 

S  CPL,ITER,T 

COMMON  /LUNITS/  IRO# TKR, TIM, TOUT 
dimf.mston  TCOmPITTC) 

IBEG  =  0 

lENO  =  NOCOMP  +  1 
10  CONTINUE 

J  =  flPEO  +  lEND)  /  2 
IF  (J  .ME.  IPEG)  THEN 

TF  (IC0MP(JI  ,LT.  JCOMP)  then 
IBFG  =  J 

ELSE  IE  aCOMP(J)  .GT.  JCOMP)  THEN 
lENO  =  J 
END  IF 
ELSE 

IF  (JCOMP  .LT.  inoO)  THEN 
J  =  TTC  -  1 

else  if  ((JCOMP  .GE.  7000)  .AND.  (JCOMP  .LE.  7RRR))  THEN 
J  =  ITC 
ELSE 

WRITE  (IWR,100)  JCOMP 
J  =  TTC 
END  IF 
RETURN 

fno  if 

IF  (TCOMP(J)  .ME.  JCOMP)  GO  TO  10 

RETURN 
C 

100  FORMAT  (1X,X10,*  .nAS  UOT  FOljNO  IN  L  I S  T  .  .  .  OEF  AllL  T  TO  707S  AL  '  ) 
end 
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CF  $  STEP  F 

CF  REWIND  TAPE  AND  REWRITE  FIRST  RECORD  WITH  MIN  AND  MAX  VIEWING  PLANE 
CF  *  CCCRDINATES 
C 

REWIND  ICUT 

WRITE  (lOUT)  AZM,ELEV, GRID, LL,YMX, MIN, ZMX,ZMN,R 

IF  (IH3JO.NE.O)  WRITE  (IWR,1003)  AZM,ELEV,GRID,LL,YMX,M'!N,a«,ZI-lN, 

1  R 

REWIND  ICUT 

WRITE  (B'iR,240)  YMX,M1N,ZMX,ZMN 
WRITE  (IWR,245) 

C 

CF  EXIT  STOP 
C 

STOP 

C 

180  FORMAT  (F7.1,7X,F9.3,F9.3,I3,18X,F6.1,2X,F6.1) 

190  FORMAT  (3 (I4,F7.2,F5.1,I3,F7.2) ) 

200  FORMAT  (2  (I4,F7.2,7X,F6.1,I3,F7.2) ) 

210  FORMAT  (lX,F6.1,F7.1,3X,F8.2,aX,I3) 

220  FORMAT  (I5,10A6) 

225  FORMAT  (15H1N0.  OP  VIEWS  =,I5/1H0,10A6) 

230  FORMAT  (2 (5X,E15.8) ,30X,E10.3) 

235  FORMAT  (lOKOAZIMUTH  =,F10.2,13K  ELEVATION  =,F10.2, 
j  1  13H  GRID  SIZE  =,F10.2) 

'  240  FORMAT  (7H0TMAX  a,F10.2,8H  M1IN  *,Fl0.2/7H0Zf^.X  »,F10.2, 

2  8H  ZMIN  =,F10.2) 

245  FORMAT  (IHl) 

1000  FORMAT  (1H1,69HTHE  FOLLOWING  IS  AN  ECHO  OF  THE  DATA  WRITTEN  ON  THE 

1  MAGIC  OUTPUT  FILE//1H0,30HA,  EL,  GRID,  LL,  X,  X,  X,  X,  R/ 

2  IH  ,3F10.3,I10,5F10.2) 

1001  FORMAT  {1H0,67HAX(I)  ,  AY{I),  AZ(I),  ISRI(I),  lECO(I),  ITH(I),  IIB( 
l,IOB(I),  1=1,170/ (IH  ,3F10.3,5I10)) 

1002  FORMAT  (1H0,34HXX,  XX,  XX,  II,  XX,  XX,  XX,  XX,  XX/lH  ,3F10. 3,110, 

1  5F10.3) 

1003  FORMAT  (1H0,42HAZM,  ELEV,  GRID,  LL,  «■«,  YMN,  ZMX,  ZMN,  R/ 

1  IH  ,3F10.3,I10,5F10.3/1H  ,5X,73H(THE  RECORD  ABOVE  ACTUALLY  OVEE- 
2WRITES  THE  VERY  FIRST  RECORD  ON  THE  FILE)/1H0, 32HEND  OF  ECHO  OF  MA 
IGIC  OUTPUT  FILE/lHl) 

C 

CF  FINISH 
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Sl'R^ni.lTINF  FSORT  (  TCnMP,!\incnr.'.P,MAT,  IFG,  ITAH,  I  AMA,  UNIT  ,  inPr.’  TSf 

OEPTM»PKVALf  ITCfPKNBPfTMlMFL  ,ohOF,  T  Y  ,  I'l) 

{rURPnUTIMF  TO  SOPT  AWPAY  ICOPP  (OF  LENGTH  Nncni'’P)  INTO 
ASCENDING  ORDER  AND  MAINTAIN  CORRFSPOrjnPMCE 
DF  OTHER  ARRAYS 

INTEGER  lAMA  CITC)» 

■*.  iCOhP  (ITCI, 

S  TFG  (TTC), 

S  ITAH  (rTC)» 

T.  TU  fITC), 

?  TY  (ITC), 

i  MAT  (ITC)» 

%  MOPNTS(ITC)» 

J  PKMriR 

PEAL  RijFFRl(Sn), 

R'IFFP2(5R), 

^  DtRTP  (PKl-JHR,  ITC  )  » 

j  PKVAL  (PRNRP, TTC  )  » 

'?  PHOF  (ITC), 

ThTNFL(ITC), 

TINIT  (ITC) 

M  r  MOCOMP 
10  CONTINUE 

M  S  M  /  P 

IF  (M  .LT.  1)  GO  TO  SO 

K  =  NOCOMP  -  M 


DO  un  j  =  i,K 
I  =  J 
CONTINUE 

If"  =  1  +  M 

IF  (TcnMP(T) 


iCnMPflM))  GO  TO  00 


S','  ITCH 

MO 

- 

icoMPf  r ) 

N1 

- 

;*,AT  (  T  ' 

M2 

- 

IFUf  I  1 

NS 

ITAtUT  J 

= 

T  A  A  (  T  1 

r:S 

= 

TV  f  T  ) 

r 

TO(  T) 

M7 

r 

NOpr'TS  (  I  1 

SI 

r 

TI,  JT  f  I  ) 

no 

?o 

=  1,0 

ot'FFPl{J'Mi  =  f)PPTH  f  I  T 
w,iFFR2(mm)  =  PKVAL  (‘  M,  T  ) 
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C 

r 


30  CflNTir'ME 

sa  =  THTNFL(I) 

S5  =  WHOF(I) 

TCOMPCn  =  [CnviP(IM) 

MAT(T)  =  MATtlM) 

IFr,(T)  =  IFGCTM) 

TTAHft)  =  TFARCTM) 
lANA(I)  =  TAMA(TM) 

TY(t)  =  IY(TM) 
lUd)  =  tU(IM) 

WOPMTSCn  =  f'JOPMTSClM) 
TIMIT(T)  =  Tlf'JTKIM) 

on  ia  mm  =  l,pK^lB^> 

()FPTH(MM,n  =  OEPTHCMM,  IV) 
PKVAL(MM,n  =  PKVAL(MM,Im) 
3ii  rcMrir“JF 

THdjFLd)  =  THT'-IFLdM) 
PHnpd)  =  PHDCdM) 
icoN'PCiM)  =  \tn 
MATdf.O  =  Ml 
IFR(TM)  =  N?. 

TTARdM)  =  M5 
TAMAd^i)  =  MU 
TYdM)  =  MS 
TiJd'^)  =  MA 
MflPMTSdM)  s  M7 
TIMITCT^')  5  SI 
on  -58  mm  -  i,pkM8W 

npDTM(MM, iM)  =  RUFFPI(MM) 
OSVAI  s  PUFF«2(mm) 

3H  COMTTnliF 

THiMFLdM)  r  ,sa 
PHOFdM)  =  SS 
r  =  I  -  M 

IF  (T  .r,F.  n  on  TO  ?(.) 
ao  CnMTTMtIE 
On  TO  10 

SO  CliMl  IMUE 


pKTijPn 
F'  n 


A-9 


Change  1 


JTCG/AS-79-V-008 


C  progpam  peakay 

C 

CF  START  PFAKAY 

CF  TITLE  QKLOOK:  PROGRAM  PFAKAY 

CF  ENTER  PFAKAY 
C 

INTEGER  AVFLAG 

COMMON  P1C10,?00},R^(?00),I1(200),PKTIME(10,100I, 

.«  PKVAL  (  1  0»  1  0  0)  ,NOPNT.S  f  50  0)  ,  PLS  (  1  00  )  , 

■s  name  ( 100)  ,  TST,NSHT,NF.NC,  I  COMP  (500)  ,SHW(  12,200)  , 

S  Nr)r.OMP,COMPA\/  (500, 1  0)  ,GRTO,  TIMES  (10),NTTME,IY(500), 

t,  PMULT  ( 10, 10), III  (500), PARE -(500) 

common  /ONE/  IFG(500) ,PRMT (a, 500) , AVFLAG 
COMMON  /LUNITS/  IRO, IrtR, I  IN, lOHT 

01  MENS  TON  PKNK(bOO) ,TVA (10) ,TVAm( 10) , ISET ( 10) ,SARFA ( 1 0) , 

T  FTTm(25) ,FXCM(25) 

DATA  IRO,  IWR,  IIN,  lOin  1  ,  T  nLIT2 ,  T  OU  T  ? ,  I OU  T  0  /7  ,  S  ,  2 , 1  0  ,  1 1  ,  1  2 ,  1  3/ 

DATA  PMULT  /I  00*0./ 

OATA  IST,NUM,MSHT  /3*0/ 

DATA  PAREA  /500*0./ 

DATA  (COMPAV (I , 1 ) , 1=1 ,500)  /500*0./ 

DATA  (C0MPAV(I,2) ,1=1 ,500)  /500*0./ 

haTA  (CnMPAV(I,3),I=l,500)  /500*0./ 

data  (CnMPAVd,^)  ,1  =  1,500)  /500*U,/ 

DATA  (COmpaV(T,G),I=I,500)  /500*0./ 

DATA  (COMPAV  ( I  ,(>),  1  =  1 ,500)  /500*(),/ 

data  (CnMPAV(I,7),I=l,S00)  /500*0./ 

data  (COvPAVd, «),!  =  !, 500)  /500*0./ 

data  (COmpaV(I,R), 1=1,500)  /500*0./ 

DATA  (COMPAVd,  10)  ,1  =  1 ,500)  /50O*0./ 

data  (PRnT ( 1 , I ) , T=1 ,500)  /500*0./ 

DATA  (PRNT(2,I),I=1,500)  /500*0./ 

DATA  (PRNT(3,I),I=1,500)  /500*0./ 

data  (pRNT(0, I ) , 1=1 ,500)  /500*0,/ 

DATA  ITOTL  /O/ 

DATA  TVA  /10*0./ 

DATA  SAPEA  /10*0./ 

DATA  ITC  /500/ 

DATA  PCV  /RO./ 

DATA  SDFSnr  /O. 05200300/ 

C 

npFM  (TPn,FTL£='PKnATA',RErFM='nS*,MAXRECL=SO,PAn=*YFS*) 

nPFN  (I/'P,FILE='°KPPTMT  '  ,RECFm='I)S'  ,CARRT  AGE  C  PNTR  DL  =  '  F  OR  JR  A  M  '  1 

OPEN  (IlM,FTLF='OKPKrAPFni:T*,FPRM='UNFnRMATTF.O',RFCFM='VARTARLF') 

nPFN  duiiT1,FILF='PKTAPFnUT1’,FnRM='ilNFf'PMATTED',RFCFv='VARIAPLt') 
nPEN  dQilT2,FlLE='OKTAPFnnT2'  ,  FORM=  '  IINFORM  A  TTF  0  *  ,PFCFm=*vAPIAHLE*) 
^PFN  dnilT3,FILF  =  'PKTAPFnijTi',FnOM='ilNFf)RNATTFD',PFCFM=*vARIAnLE') 
npFr'  d()i)TO,FJLF  =  'Pt<TAPFnuT*J',FORM=*ili.jFnRMATTED',PFCFM='VARIAi:U_E') 
C 

r  This  PPDGRAM  performs  THE  COMROmEDT  PE^jETRATIn^! 

C  AMD  computes  cnyPOMENT  AND  SYSTEM  VULNFRAHLF 
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c  ARf:As,,.ANn  SHOT  l'nf:  PK'S 

C 

C  ,  Iin  IS  THE  niMFNS  ON  OF  THE  CnwRONENT  ARRAYS 

C  PCV  IS  THE  PER  CENT  VULNERABLE  AREA  IJSFH  FOR  AN  OUTPUT 

C  SOFSOM  IS  THE  CONVERSION  FROM  SO.  FEET  TO  SO. METERS 

C 

REWIND  ITN 
C 

CF  S  STEP  A 

CF  READ-CARDS  CONTAINING  UP  TO  10  TIME  INTERVALS 
C 

RFAO  (IPO, 10031  NTIMF,AVFLAG 

READ  (IROrlOOl)  (TIMFS(J) , J=1»NTIME) 

C 

CF  READ  VIEWING  PLANE  DATA,  COMPONENT  DATA,  AND  FLUX  TABLE 
C 

READ  (IIN)  AZ, EL, GRID, IDVEH,YMAX,YMIN,ZMAX,ZMIN, NOCOMP 
READ  (IIN)  (ICOMP(T),IFG(T),lY(I),TU(I),NOPNTS(I), 

S  (PKVAL(J,T),J=1,N0PNTS(I)),I=1,N0C0MP),IRVRS,IFMAX, 

S  (FTIM(I) ,FXCM(I) , 1=1, IFMAX) 

C 

C  ITC  MUST  BE  AT  LEAST  TWO  GREATER  THAN  NOCOMP  TO  ALLOW 

C  FOR  THE  defaults  TO  2024  AL  AND  707S  AL 

C 

CF  IF  TOO  many  components?  THEM  500 

IF  (ITC  .GE.  NOCOMP+2)  THEN 
C 

CF  S  step  R 

CF  PRINT  THE  TIME  INTERVALS  AND  THE  FLUX  DISTRIBUTION 
C 

WRITE  (IWR,4)  NTIME, (TTMES(J) , J=1 ,NTIME) 

PVRS  =  IRVRS 
WRITE  (IWR,8)  RVRS 
WRITE  (IWR,800)  IFMAX 
TE  =  0. 

C 

DO  820  T  =  1, IFMAX 
TP  =  TE 
TE  =  FTIM(I) 

WRITE  (IWR,8  10)  TB, TF,FXCM( I ) 

P?0  CONTINUE 
C 

C  LAST  FLUX  ALSO  APPLIFS  FOR  ALL  TIMES  BEYOND 

C  THE  LAST  TTMF 

C 

TB  =  TF 
TE  =  l.e30 

WRTTF  (IWR,810)  TH, IE, FXCM( IFMAX) 

C 

CF  WRITE  FILF-1  A  COMPLETE  COPY  OF  THE  BINARY  INPUT  FILE 
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C 

WRITE  (lOUTl)  AZ»EL»GRID»IDVEH,YMAX,YMlN,ZMAX,ZMIN,Nncn'-lP 
WRITE  (lOllTl)  (ICnMP(I),IFG(I),IY(T)  ,  I U  ( I )  ,  I  =  1  ,  NOCOMP )  ,  I R VRS 
S  IFMAX,  (FTIM(I),FXCfni),I  =  lrIFMAX) 

C 

10  CONTINUE 

READ  (TIN)  ((R1(I,J),I=1,10),R3(J),I1 CJ),J=1,2001 
WRITE  (TOUTl)  ((Rl(T,J),I=lrlO),R3(J),Il{J),J=l,200) 

IF  (11(200)  .NF.  ORRR)  GO  TO  10 
C 


END  FILE  lOUTl 
REWIND  I  IN 

GRID  =  GRID  *  GRID  /  !««. 

C 

C  GRID  IS  NOW  THE  AREA  OF  ONE  GRID  CELL  IN  SQUARE  FFET 

C 

READ  (TIN) 

READ  (TIN) 

C 

C  NTIME  IS  THE  NUMBER  OF  DWELL  TIMES  TO  CONSIDER  —  TIMES 

C  IS  the  list  (JF  them  IN  ASCENDING  ORDER 

C 

MAXTIW  s  NT  I  me  +  2 
C 

CF  $  STEP  C 

CF  read  the  next  RECORD  OF  THE  TIME  FILE 
C 

100  CONTINUE 

read  (IIN)  ((RlfI,J),I=l,l0),K3(J)rTl(J),J=l,200) 

C 

CF  $  step  D 

CF  LOOP  TO  PROCESS  EACH  SET  OF  INPUT  ARRAY  ELEMENTS 
C 

101  CONTINUE 

DO  no  J  =  lf200 
C 

CF  IF  FMD  OF  VIEW?  THEN  5000 
C 

IF  (Tl(J)  .EQ.  9RR9)  GO  TO  SOOO 
C 

C  COMPOMEM  EQUAL  TO  9999  SIGNALS  END  OF  VIEW 

C 

IF  (TST  .LF.  0)  THEN 
C 

C  TTOTL  COUNTS  TOTAL  SHOT  I.IMES  FOR  VIEW 

CF  STdWE  SHOTLINF  ENCPUNTEM  DATA 

C 


I  TOIL  =  TTOTL  +  1 
NFMC  =  II (J) 


NSHT  =  NSHT  +  1 


Shw(  1  ,NSHT)  =  R1  (  1  rvl) 


Change  1 


A-12 


JTCG/AS-79-V-008 


SHW(?,NSHT)  = 

IF  (NEMC  .MF.  0)  THEN 
1ST  =  NSHT 
MUM  =  0 
ELSE 
C 

C  SET  -9  TO  SIGNAL  NO  CRTTIOAL  COMPONENTS  ALONG  THIS  SHOT  LINE 

C 

C 

DO  112  MM  =  3,MAyTIM 
SHW(MM,NSHT)  =  -9. 

11?  CONTINUE 

END  IF 


NUM  s  mum  ♦  1 
DO  1 1«  K  =  1# 10 

PKTIME(K»NUM)  =  RKK,.!) 

11«  CONTINUE 

PlS(NUMJ  s  R3(J) 

NAME(NUM)  =  IKJ) 

C 

CF  IF  LAST  ENCOUNTER  ON  THIS  SHOT  LINE?  THEN  *  ELSE  110 
C 

IF  (NUM  .GE.  NFNC)  THFM 
C 

CF  S  STEP  E 

CF  increment  the  presented  area  FOP  tACH  CRITICAL 

CF  *  COMPONENT  AND  EACH  SYSTEM  ON  THIS  SHOT  LINE 

C 

00  115  I  =  IflO 
ISET(I)  =  0 

115  CONTINUE 

C 

DO  110  I  =  1,NEMC 
TI  s  NAME(I) 

LL  =  lY(II) 

IF  (LL  .NE.  0)  ISFKLLl  =  1 
IF  (I  .NE.  NFMCl  THEN 
DO  llA  13  =  Ifl.MFMC 

IF  (TI  ,FO.  NAMF(I3))  go  TO  118 
llA  CONTINUE 

FMD  TF 

PAREA(TI)  =  PARFAdll  +  1. 

IIP  CONIIMIIE 

C 


DO  119  I  =  If  10 

SAREA(I)  =  SARFAd)  +  TSFICI) 

119  CONTTNUF 

C 

CF  EXECUTE  PENT  PERFORMS  SHOT  LINE  PFnETRATTO'I 
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CF  *  CnMPlITiNr,  PK'S  AT  FACH  TIME  INCPEMFNT 

C 

CALL  PF.MT 
1ST  =  0 
C 

C  ACCUMULATE  PK'S  FOR  TOTAL  TARGET  VI'LNEPABLE  ARFA 

C 

no  107  II  =  l.MTIME 

TVAdl)  =  TVA(II)  +  SUW(TI  +  2,A'SHT) 

107  COMTTMIIE 

EN'D  IF 
END  IF 
C 

CF  i  STEP  F 

CF  IF  SHOT  LINE  PK  ARRAYS  ARE  FULL?  THEM  *  ELSE  110 
C 

IF  (MSHT  .EQ.  200)  THEN 

C****  '\WJTE  (Iio'R,  1  002)  ((SH!M(II,MM),II  =  lf3),MMrl,200) 

C 

CF  InRITF  FILF-2  THE  SHOT  LIME  PK  ARRAYS 
C 

WRITE  (inUT2)  ( (SHW(II,MM) , IT=1 f 12) f MM=1 ,200) 

MSH  r  =  o 
END  IE 
C 

CF  :S  STEP  R 

CF  IF  LAST  SET  OF  INPUT  FROM  TIME  FILE  RECORO?  THEN  100  ELSE  101 
C 

110  rONTTMUE 


C 


GO  TO  100 


r 

C  SET  -PROP  TO  SIGNAL  END  OF  VIEW  FOR  PLOTIT 

C 

CF  S  step  H 

CF  I'-PITE  FILE-2  LAST  RECORD  OF  SHOT  LIME  ARRAYS  WITH  EWO  OE  VIEW  FLAG 
C 

5000  CONTINUE 

NSHT  =  MSHT  +  1 


C 

DO  5010  K  =  3,maxTTv 
SHW(K,MSHT)  =  -PPPP. 

5010  COMTIMUF 
C 

WRITE  (IOLIT2)  (  ( SHW  ( I  T  ,  f-.M  )  ,  r  I  =  i ,  i  j  )  ,  mm=  1 , 20  0  ) 
end  file  I  out  2 


C 

C****  write  (Iwr,  1002)  (  (SH/Jd  I  ,MM)  ,  I  1  =  1  ,  5)  ,mm=1 ,200) 

C 

CF  CO.-iPUTE  vulnerable  AREAS  FROM  COMPONENT  PK’S 
CF  OPT^'T  presented  AMo  VIILNERAPLE  AREA  SUMMARIES 
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C 


C 


C 

C 

C 


C 

C 

C 

C 

C 


s 


6010 

C 

C 


Boon 

C 

r 

C 


WRTTF  (IWR,7001)  PCV 
JQQ  =  0 

FRV  =  PCV  *  0.01 

DO  flOOO  MO  =  l»NOCOMP 

IF  (IFRtWG)  .iME.  0)  THEN 

lF(PRNT(3fMQ)  .LE.  0.)  THFM 

SAVE  the  names  DF  ALL  COMPONENTS  If'HICH  ivERF.  MOT  KILLED 

JQO  =  JQn  ♦  1 
PKNK(jaQ)  =  ICOMP(MO) 

END  IF 

determine  time  INTERVAL  DUPING  ^'HICH  COMPONENT'S 
VULNERABLE  AREA  REACHED  PCVX  OF  ITS  PRESENTED  AREA 

IF  (PAREA(MQ)  .GT.  0.)  THEN 

DO  6010  K  5  1, NT  IMF 

IF  (COMPAV(MQ,K)/PAREAfMO)  .GF,  FRV)  THFN 
IF  CK  .GT.  1)  THFN 
TB  s  TIMES(K-l) 

ELSE 
TB  =  0 
END  IF 

lif'RlTE  (IWR*7002)  ICUMP(mq)  ,  (prmt(jj,mq)  ,JJsI,4),tBi 
TImeS(K) 

GO  TO  8000 
END  IF 
CONTINUE 

END  IF 

WRITE  (IWR,  7002)  ICOMP C MO ) , ( RRNT ( J J , mq ) , j js i , u ) 

END  IF 
CONTTNl'E 

CONVERT  COMPONENT  PK'S  TO  VULNERABLE  AREAS 


DO  305  J  =  IrNOCOMP 

PAPEA(.J)  =  PAREA(J)  ★  GRID 
no  300  K  s  IrNTIMF 

COMPAV(J,K)  =  COMPflviJ.K)  *  GRID 
300  CQNITmUE 

3ns  COMTTNUF 
C 

C  convert  total  TARGET  “K'S  ANi)  SVSTE*’  PK'S  TO  VULMFRAPLE  ARFAS 

C 


DO  315  K  =  If  NT  IMF. 
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TVfl(K)  =  TVACK)  *  GRID 
TVAM(K)  =  TVACK)  *  SQFSQM 
no  310  J  =  1,10 

PMIILT(J,K)  =  PMIJLT(J,K)  *  RRIO 
310  CONTIMUE 

315  CONTINUE 
C 
C 

CF  ■.'JRITE  FTLF-3  FLUX  TABLE,  TIMF  INTERVALS,  AMD  VULNFRARl  E  AREAS 
C 

IF  (AVFLAG  .ED.  1)  THEN 

WRITE  (lWR,100a)  (TIMESCK) ,Ksl ,NTIME) 

ELSE 

WRITE  (IWP,1007)  CTIMESCK) ,K=1,NTIME) 

FND  IF 

WRITE  (I01IT3)  AZ,EL,  TFMAX,  (FTIM(I)  ,FXCW(  T  )  ,  Isl  ,  IFMAX)  ,RVRS, 

S  MnCOMP,NTIME, (TTMES(I),I=1,NTIM£) 

C 

nn  3?o  j  =  i,NncoMP 

IF  (IFG(J)  .NE.  0)  THEN 

WRITE  CIWR,  1005)  ICQMP ( J ) , P ARE  A ( J ) ,  ( COMP A V ( J , K ) , Ks 1 , MT I  ME ) 
WRITE  CIOUT3)  ICONPCJ) ,PAREA C J) , (C0MPAV(J,K) ,K=1 ,MTIME) 

END  IF 
3i>0  CONTINUE 
C 

FNO  FRF  IOUT3 
C 

TOTI.  =  ITOTL^GRID 

WRITE  (rWR,7005)  TnTL,ITOTL 

WRITE  (IWR,700fe)  (TVACK), K=1,NTIME) 

WRITE  C1WR,  1008)  C T  IMES CK ) , K  =  1 , NTIME ) 

C 

DO  325  K  =  1,10 

SAPEACK)  =  SAREACK)  *  GRID 

WRTTE  CinUTa)  SARFA  (K)  ,K,  (PMIILT  CK,J)  ,J=1 , NTIME) 

WRTTE  (IWR,in05)  K,SAREA(K) , (PMULTCK, J) ,J=1,NTIMF) 

325  CONTINUE 
C 

r 

CF  i^'RITE  FILF-U  SYSTEM  AND  TOTAL  TARGET  VULNERAHLF  AREAS  AT  FACH  TIME 

C 

WPITF  (lOUTa)  .1(00,  CPKNK  (NC  •))  ,NCN=1  ,  JQR) 

C 

C  CONVERT  S(0UARF  FFET  TO  SOUARF  mfTFRS 

C 

DO  3N0  J  =  WNOCOMR 

PAREAC.J)  =  PAREAC.J)  *  SOFSO^’ 
no  35(1  K  =  1,NT1(’C 

COMPAVfJ,K)  =  C0VPAVCJ,K)  *  RlOFSOM 
350  CONTTNIIE 

3oO  CO^'TT'MIF 
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IF  (AVFL4G  .FQ.  1)  THFN 

WRITE  riWR,  1006)  (TTMF.SIK  )  ,K  =  1  ,MTIMfr) 

FLSe 

WRITE  (IWRflOll)  (TTMFStK ) ,K=1 ,NTIMf D 
END  IF 

DO  370  J  =  l/NOCOi^P 
IF  (TFG(J)  .ME.  0) 

S  WRITE  (IWR,  1005)  ICOMP  (  J  )  ,  P  ARE  4  ( J  )  ,  (  CO'-^'P  ft  V  C  ,I ,  K  1  ,  K  =  I  ,  NT  IME  ) 

COMTINIJE 

TOTL  =  TOTL  *  SOFSO'-^ 

WRITE  (IWR,7007)  TOTL^ITOTL 

WRITE  {IWR,700fl)  (TVAMIK)  »K  =  l,IMTIiWB) 

WRITE  (IWR,1009)  (TTMES(K),K=J ,NTIME) 

DO  «00  K  =  1»10 

SAREA(K)  =  SAREA(K)  *  SOFSQM 

DO  3«0  J  s  l,MTtME 

PMIILT(K,J)  =  PMULT(K,J)  *  SOFSOM 
COMTIMUE 

WRITE  (lOUTU)  SAREA(K),K,(PNntLT(K,J),Js),MTlWF) 

WRITE  (IWR/IOOS)  K»SARFA(K), (PMULTfK,J),J=l,MTIME) 

COMTINUE 

WRTTF  (IWR,70in 
no  330  J  =  l,NOCOVP 

IF  ((IFG(J)  .NE.  0)  .AND.  (PAREA(J)  .LE.  0.)] 
a  WRITE  (IWR,701?)  ICOMP(J) 

CONTINUE 

WRITE  (TNR,7ni3) 
no  390  J  =  IfNncOMP 

IF  CCIFGCJ)  .ME.  0)  .AND.  (PRMT(3,>n  .LE.  0,)1  THEM 
ASOF  =  PAREA(  J) /SnESG?-^ 

WRITE  (IWR,10101  ICf'lwPIJ)  ,  ASnF,PAREA(,I) 

End  if 

CDNTTNIIF 

WRITF  (TOIlTal  (  TVA  (  r )  ,  TVAN!(  [1  ,  T  =  1  ,MTTME) 

FI.5F 

PRINT  FATAL  ERROR  -lESSAGF,  Ti.iO  MANY  Cni«>PnNEMTS 


WRTTF  (tWR,70ia) 
E-MD  IF 
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C 

CF  FXIT  STOP 
C 

STOP 

C 

a  format  ('  NTTMF=*,I5,*  STEPS'/lOX,'  TIME  STEPS  ARE : * r 1  OF  1 0 . 3 ) 
p  FORMAT  dOX,'  IRVRS=*»F5.0) 

POO  FORMAT  ('  number  OF  POINTS  IN  FLUX  DISTRIBUTION  =',15/ 

%  '  BFOIN  TIME*, 5X, 'END  T IMF *, 7X , 'FLUX  *  ) 

PIO  FORMAT  (lx,F10.2,3X,F10.?,3X,F10.2) 

1001  FORMAT  (lOFS.?) 

1002  format  (S(3Ffe,2,2X) I 

1003  FORMAT  (215) 

lOOa  format  Cl  PRESENTED  AREA  AND  TRUE  COMPONENT  VULERARLF  AREAS 

5  *(SQ.  FFFT)  per  time  INCREMENT*//*  TIME  I NCREMENTS * , a X , 1  OF  1 0 . 2/ ) 

1005  FORMAT  (I5,F10.5,5X, 10F10.5) 

1006  FORMAT  (*1  PRESENTED  AREA  AMD  TRUE  COMPONENT  VULERARLF  AREAS 
S  *(SD.  METERS)  PER  TTm^  TMCRFMENT *// *  TIME  I NCRFMENTS * ,  ux  , 

V  10F10.2/) 

1007  FORMAT  (*1  PRESENTED  AREA  AMD  INCREMENTAL  COMPONENT  VULERABLF  *, 

S  'AREAS  (SO.  FEET)  PER  TIME  INCREMENT*//*  TIME  INCREMENTS *, «X , 

S  IOFIO.2/) 

lOOfi  FORMAT  (*1  presented  AREA  AND  SYSTEM  VULERAHLE  AREAS  (SO.  FEET)  *, 

S  *PFR  TIME  INCREMENT*//*  TIME  INCREMENTS *, aX , 1  OF  1 0 , 2/ ) 
lOOR  FORMAT  (*1  PRESENTED  AREA  AND  SYSTEM  VULFRABLE  AREAS  (SO,  METERS)*, 
^  *  PER  time  increment*//*  time  T NCREMENTS * , ax , 1  OF  1 0 . 2/ ) 

1010  format  (1x,I6,RX,2E12.5) 

1011  FORMAT  (*1  PRESENTED  AREA  AND  INCREMENTAL  COMPtUaFNT  VULERABLF  *, 

T  'AREAS  (SO.  METERS)  PER  TIME  INCREMENT *// *  TIME  I MCREmenTS * ,  OX  , 

J  lOFlO.?/) 

7001  FORMA T (* 1  *, 9X ,  'COMP.  NO  Y-CODRD.  Z-COORD.  MAX.  PK  *, 

i  *  time* ,5X, 'TIME  interval  DURING  WHICH  VULFRARLE  AREA  PEACHES', 

%  F<4.0,  *%  */66X,  *OF  THF  PRESENTED  AREA'/) 

700?  FORMAT  ( 1 1  1 , 2X  ,  2E  1  2  .  ,  F  11  .  « ,  F  l  2  .  a ,  l  o  X ,  F  1 2  .  a  ,  *  T0*,F1?.«,.*  SECONDS') 

7005  FORMAT  (*  TOTAL  TARGET  PRESENTED  AREA  (SO.  FEET)  =*,F10.5, 

«  5X,*(',I6,*  total  SHOTLINFS)*) 

7006  FORMAT  (*  TOTAL  TARGFT  VULNERABLE  AREA  (SN.  FFFT)  PER  *, 

^  *TTMF  INCRFMPNT'//(20V, lOFlO.S) ) 

7007  FftRVAT  (*  TOTAL  TARGET  PRESENTED  AREA  (SO.  METERS)  =*,F10.5, 

S  5x,'(*,I6,'  TOTAL  SHOTLINES)*) 

700P  FORMAT  (*  TOTAI  TARGET  VULMERARI.E  AREA  (SO.  METERS)  PER  *, 

%  *TTMF  TncREMENT*//(20X, 10F10.5) ) 

7011  FiiPMAT  (*1  critical  COMPONENTS  ■-••HOSE  PRESENTED  ARFA  EDUALS  ZERO', 
ARE:') 

701?  F(iRNAT(  IX,  T  10) 

7013  format  (*1  critical  COMPONENTS  i-JHOSE  VULMFPAPLE  AREA  EQUALS  ZERO', 
t*  ARE:*/*  COMPONENT  PRESENTED  AREA  (SO.  FEET  AND  SO.  mfTFR*;)*) 

701^  format  C  array  OIMFNSTOMS  are  too  small. . .program  HALTING') 

C 

CF  FINISH 
C 

END 
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SURROUTIMt  PENT 


PKC  ALLOWS  100  INTEPSECTIOMS  PER  SHOT  LIME 

SHW  TS  SET  UP  TO  SAVE  Y,7,1ST  T I  ME f . . . » 1 0 TH  TI^E  PK 

PER  200  SHOT  LINES 


START  PENT 
TITLE 

ENTER  PENT 


QKLOOK:  SUBROUTINE  PENT 


INTEGER  AVFLAG 
DIMENSION  PKCClOO) ,PKS(10) 


COMMON 


COMMON 

LOGICAL 


PI  (  10,200) ,r3(200) , II (200) ,PKTTME(  10,  100)  , 

PKVALCIO, lflO),NOPNTS(SOO) ,PLS(100)  , 

LOT ( 100) , IST,MSHT,NeNC, ICOMP(500) ,SHW(  12,20  0 ) , 
NOCOMP, COMP A V (500,  1 0 ) , GR 1 0 , T TMES ( 1 0 ) , NT  I  ME , I Y ( 50 0 ) , 
PMULTdO,  10),IU(500),PAREA(50  0) 

/ONE/  IFG (500),PRNT (4, 500 ), AVFLAG 
SNGSYS,MULSYS, TXSET 


THIS  SUBROUTINF  IS  ENTERED  WITH  THE  NECESSARY  INFO  FOR  ONE 
SHOT  LIME,  ENERGY  TS  PASSED  ALONG  THIS  SHOT  LINE  FOR  ALL 
TIME  durations  DESIRED,  STARTING  WITH  THE  SHORTEST.  A  TIME 
HISTORY  IS  KEPT  SO  THAT  FOR  EACH  SUCCESSIVE  TIME  IT  IS  NEC¬ 
ESSARY  only  to  PENETRATF  THOSE  COMPONENTS  NOT  PREVIOUSLY 
BREACHED  0Y  SHORTER  TIMES. 


PKTTME( 1 ) 


PKTIME(I) 


PKTImE(M) 


TBEG 


IFMO 


IS  THE  TIME  needed  to  REACH  PK-MIN  FOR  THIS 
component,  STARTING  FROM  THE  BEGINNING  OF  THE  SHOT 
LIME. 

TS  THE  TIME  NEEDED  TO  REACH  AN  INTERMEDIATE  PK 
FOR  THIS  COMPONENT,  STARTING  FROM  THE  BEGINNING 
OF  THE  SHOT  LIME.  (I  IS  IN  THE  INTERVAL  ri,N-n). 
TS  THE  TIME  NEEDED  TO  REACH  PK-MAX  FOR  THIS 
COMPONENT,  STARTING  FRO>^  THE  BEGINNING  OF  THE  SHOT 
LINE.  (N  IS  IN  THE  INTERVAL  [2,10]). 

TS  THE  TIME  NEEDED  TO  PERFORATE  THIS  COMPONENT, 
STARTING  from  THE  BEGINNING  OF  THF  SHOT  LINE. 

IS  the  lower  pnUMr)  of  the  time  interval  (I.F.,  it 
REPRESENTS  THF  ) Imp  ALREADY  USED  UP) 

IS  THE  DURATION  TI'-iE  FROM  ARRAY  TIMES  WHICH  IS 
currently  BFING  PROCFSBED. 

TS  THE  TIME  AT  WHICH  THE  maxImiii^  RDSSIBLF  PK  FOR 
THIS  COMPONENT  WILL  BE  ACHIEVED.  (MOTE  PKsl.O 
MAY  NOT  BE  onsSTPLE  SINCE  PLS  May  rp  LESS  THAN 
PKTIMPfhj)  OR  RKVAI  fM)  MAY  HE  LESS  THA.'i  1  .  ii )  . 

IS  IMP  MINIMUM  TINT  NEPDFD  TO  GET  A  MON-7ERO  Rt^ 

FOR  this  CDMPOMFNT  IN  T^P  IMFRVAI,,  TPFG  Tn  TFNO. 

IS  THE  TIME  MPPOED  TO  GET  MAXIMUM  Rk  POR  THIS 
rO’iPOMFNT  In  the  interval  T!'PG  TO  TFf'l). 


P‘«iX  =  0. 
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TREG  =  0. 

NENl)  =  1 
C 

DO  10  11=1,10 

PKSdl)  =  0. 

10  CONTINUE 
C 

CF  S  STFP  A 

CF  TIME  PENETPATION  LOOP,  ITERATE  FOR  EVERY  TIME  INTERVAL 
C 

11  CONTINUE 

DO  6000  NTIM=1,NTIME 
TEND  =  TIMES(NTIM) 

NBEG  =  NFNO 
C 

CF  S  STEP  R 

CF  ENCOUNTER  LOOP,  ITERATE  FOR  FACH  REMAINING  ENCOUNTER 
C 

1?  CONTINUE 

DO  1000  II=NREG,NEMC 
NEND  =  II 
PK  =  0, 

PKC(TI)  =  0. 

SPK  =  0. 

I  =  LOC(TI) 

L  =  IY(I) 

SNGSYS  s  (L  .NE.  0)  .AND.  (IU(I)  .EO.  0) 

MULSYS  =  (L  .NE.  0)  .AND.  (10(13  .EQ.  1) 

C 

CF  IF  interval  ENOS  REFOPE  MIN  PENETRATION?  THEN  1900 
C 

IF  (TEND  .LT.  PKT IME  ( 1 , 1 1 )  3  GO  TO  1900 
IF  (PLS(II)  .GE.  PKTIME(1,II)3  THEN 
IF  (PKVAL(N0PNTS(I3  ,13  .EG.  1.03  THEN 

PKl  =  AMTM(PKTIME(N0PNTS(I3,IT3,PLS(II33 
FLSE 

PKl  =  PLS(IT3 
END  IF 
C 

CF  IF  MAX  PENETRATION  ENDED  IN  LAST  INTERVAL?  THEN  1000 
C 

IF  (TBEG  .LT.  PK 1 3  THEN 
TX  =  1 

IXSFT  =  .FALSE. 

20  CONTINUE 

IF  ((IX  .LT.  N0PN1S(T33  .AND. 

3.  (PKTIME(TX,II)  .LT.  TEND33  THEM 

IX  =  IX  ♦  1 
ELSE 

IXSET  =  .TRUE. 

END  IF 
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IF  C.iNOT.  IXSET)  GO  TO  20 
PK2  =  PKTIVIE(IX-1,II) 

PK3  =  AMTNl (TENO^PKl) 

C 

CF  COMPUTE  PK  FOP  THIS  ENCOUNTFR 
C 

IF  ((PK3  .LE.  PKTIME(NnpMTS(I),II))  .AND. 

^  (PK2  .NE.  PKTIME(IX,II)  )  )  THEM 

PK  =  (PK3  -  PK2)  /  (PKTIMECIX,  ID  -  PK2)  ♦ 

5>  (PKVAL(IX,T)  -  PKVAL(IX-UT))  +  PKVALCIX-UI) 

else 

.  PK  =  PKVAL(TX,I) 

End  IF 

PK  IS  NOW  THE  COMPONENT  PK  FOR  THIS  ENCOUNTER  ONLY 
SPK  IS  MOW  THE  SYSTEM  PK  FOR  THIS  ENCOUNTER  ONLY 
SPK  =  PK 

IF  (AVFLAG  .EO.  0)  PK  =  PK  *  (1.0  -  PMX) 

PKC(II)  =  PK 
IF  (II  .NE.  n  then 

H  STEP  C 

COMPUTE  COMPONENT  PK  FOR  ALL  PREVIOUS  ENCOUNTERS 


1  72 
C 

ITS 

C 


IF  THIS  COMPONENT  WAS  HIT  BEFORE  ON  THIS  SHOT  LINE, ADJUST 
current  hit  PK  assuming  EVENT  INDEPENDENCE 

(PK  for  this  encounter  must  be  CONDITIONED  BY  PROR  OF 
SURVIVAL  FOR  ALL  PREVIOUS  ENCOUNTERS.) 

DO  172  LM  =  Il-l,l,-1 

find  LATEST  ENCOUNTER  OF  THIS  COMPONENT  PRIOR  TO 
THE  current  encounter 

PKC(N)  IS  THE  TOTAL  PK  FOR  THIS  COMPONENT  (HN  THIS  SHOTl  INF) 
up  TO  (AND  INCLUDING)  ENCOUNTER  NO.  N 

TF  (LnC(LM)  .EO.  I)  THEN 
PK  =  PK  *  (1.0  -  PKC(LM)) 

PKCdl)  =  PkC(LM)  +  PK 
GO  TO  17S 
END  TF 
CONTINUE 
FMO  TF 

COMTlMUE 
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C 

C 

C 

C 

C 

C 

CF 

C 


C 

C 

C 


C 

c 

c 

c 

c 

CF  S 

CF 

C 

C 

CF 

CF  * 
C 


C 

C 

r 

C 

C 


?no 

c 

c 

c 

c 


PKR(M)  IS  The  total  PK  fop  SYSTEM  NO.  N  (IMCLUOING 
SINOLY-VULMERABLF  components  ONLY). 

SPK  MUST  RE  ADJUSTED  TO  REFLECT  ANY  PREVIOUS  ENCOUNTER 
OF  THIS  SYSTEM  ON  THIS  SHOT  LINE 

ACCUMULATE  SYSTEM  PK  FOR  SINGLY  VULNERABLE  SYSTEMS  ONLY 

IF  (SNGSYS)  SPK  =  SPK  *  fl.O  -  PKS(L)) 

IF  (PKC(II)  .GT.  PRNT(i,I))  THEN 

STORE  MAX  COMPONENT  PK,  LOCATION,  AMD  TIME  IN  PPNT 

PRNTdrI)  =  ShW(l,IST) 

PRNT(2,I)  =  SHlNf2,IST) 

PRNKSrl)  s  PKC(II) 

PRNT(a,I)  =  PK3 

ELSE  IF  ((PKC(II)  .FO.  PRNT(3,I))  .AND. 

S  (PRNTCa,!)  .GT.  PK3))  THEN 

PRNTCl,!)  =  SHW(1,IST) 

PRNT(?»I)  =  SHW(?,IST) 

PRNT(il,I)  =  PK3 
END  IF 

COMPAV  HOLDS  CUMULATIVE  PK  FOR  EACH  COMPONENT  --  LATER 

WILL  BE  MULTIPLIED  BY  THE  GRID  AREA  TO  GIVE  VULNERABLE 

area 


step  D 

IF  ENCOUNTER  ENDS  IN  LATER  INTERVAL?  THEN  IROO 

IF  (TEND  .LT.  PKl)  GO  TO  1900 

COMPONENT  HAS  BEEN  COMPLETELY  PROCESSED, 

RECORD  PK'S  AND  GO  TO  NEXT  COMPONENT 

IF  (SNGSYS)  PKS(L)  =  PKS(L)  +  SPK 
TPEG  =  PK3 

DO  500  NT  I  =  NT TM, NT  IMF 

PMUlT  accumulates  PK'S  FOR  SINGLY  VULNERABLE  MEMBERS 
OF  SYSTEMS  ONLY 

IF  (SNGSYS)  PMI!LT(L,MTT  )  r  PMi  |L  T  (  L  »  NT  T  )  +  SPK 
COMPAV (I , NTT )  s  COMPAV(I,NTI  )  ♦  PK 

CONTINUE 

IU(I)  TS  A  mulTTPLY-VMLNERaBLE  Cf mpomenT  OF  SYSTEM  TY(I) 

^nTE  --  MULT.VIJL.  CCMP.  APfc  NOT  Ani)Eo  TO  TOTAI  SHnJLINF  COUNT 
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IF  ((.NOT.  MIILSYS)  .AMD.  (AVFLAG  .ED.  1))  THEM 
PMX  =  PMX  +  PK  *  (1.0  -  PMX) 
else  if  ((.not.  MIJLSYS)  .AMD.  (AVFLAG  .FQ.  0))  THEN 
PMX  =  PfiX  +  PK 
FND  if 
END  IF 
END  IF 
C 

CF  $  STEP  E 

CF  IF  another  Encounter  on  the  shot  line?  them  12 

c 

1000  COMTINUF 

c 

CF  all  components  HAVE  BEEN  PFNETRATED 

C  PMX  STAYS  The  SAME  FOk  ALL  REMAINING  DURATIONS. 

C 

DO  1500  NTI  =  NTIMrNTIME 
SH'/«l(MTI  +  2,  ISTl  =  PMX 
1500  CONTINUE 
C 

CF  EXIT  RETURN 
C 

RETURN 

C 

CF  B  STEP  F 

CF  TIME  DURATION  IS  COMPLETELY  USED  UP, 

CF  *  RECORD  PK*S  AND  GO  TO  NFXT  TIME  INTERVAL 

C 

1900  CONTINUE 

IF  (.NOT.  MULSYS)  THEN 
IF  (AVFLAG  .EQ.  1)  THEN 

SHW(NTTM+2, 1ST)  =  PMX  +  PK  *  (1.0  -  PMX) 

ELSE 

SHW(NTlM+2, 1ST)  =  PMX  +  PK 

end  if 
ELSE 

SdW(NriM+2,IST)  =  PMX 

fnd  if 

IF  (SNGSYS)  PMULT(L,NTIM)  =  PMI.IL  T  ( 1. ,  N  1 1 M  )  +  SPK 
COMPAV  (  I  fNTIM)  =  CnMPAV(I,MTIvi)  +  PK 
C 

CF  IF  another  time  INTERVAL?  THEM  11 
C 

AOOO  COMIINIIE 
C 

RETURN 

C 

CF  EXIT  RFTURf 
CF  FT'iTSH 
C 

END 
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I 


C 

c 

CF 


CF 

CF 

C 

C 

C 

C 


1 


c 


c 

c 

c 

c 

CF 

CF 

CF 

C 


PROGRAM  PRERO 


START  PRERD 

title  QKLOOK:  program  PRERD 

ENTER  PRERD 


THIS  PROGRAM  READS  THE  OKLOOK  INPUT  DECK,  CHECKS  FOR  POSSIBLE 
ERRORS,  AMD  PRINTS  COMPONENT  SUMMARIES, 


INTEGER 

COMMON 

S 

% 

COMMON 

COMMON 

common 

DIMENSION 

DATA 

DATA 

DATA 


PKN0R 

ICOmP(500),MAT(500),IFG(500),TTAB(500),IAMA(5()0), 
TINIT(SOO),NOPNTS(500),DEPTH(10,500),PKVAL(10,BOO) 
RHOF(bOOD ,IU(500) , lYtSOO) 

THINFL(500) , NOCOMP 
/LUNITS/  IRDflWR 
/SIZES/  ITC»IFX 
IEf3«) 

IBLNK, ICHK, lASTER  /'  ',1H<,'*'/ 

IHD,IWR  /5,A/ 

ITC, IFX,PkN8P  /500,25,10/ 


# 


OPEN  (IRD,FILE=*OKPKDATA*,RECFM=»DS',MAXRECLseO,PAD='YES') 

OPEN  (Ii(vR,FILE5*PWEROOUT  *,RECFMs»ds'  ,CARRI  age  CONTROLS 'FORTRAN  ' 


ITC 

IS 

the  DIMENSION 

OF 

IFX 

IS 

The  dimension 

OF 

STEP  A 

EXECUTE  RE 

AO  IN 

READS  THE  INPUT 

VIOLATIONS 

THE  COMPONENT  ARRAYS 
the  flux  arrays 

DECK  AND  TESTS  FOR  ARRAY  ROUNDS 


C 

CF 

CF 

C 


C 


CALL  READIN 

EXECUTE  ESORT  SORTS  THE  COMPONENT  INFOPMATION  ARRAYS  INTO 
ascending  ORDER  BY  COMPONENT  NUMBER 

CALL  FSORTCI C QMP, nocOMP, MAT, TEG, TTAB,IAnA, TIM  IT, NOP NTS, DEPTH, 
J  PKVAL, TTC,PKNflP, THTNFL,RHOF, lY, XU) 


WRITE  (IWR,100) 

WRITE  (IWR,101) 

C 

CF  S  STEP  P 

CF  TEST  POP  DUPLICATE  COMPONENT  ID  NUMBERS 
C 


on  no  j  =  ?,NOcnMP 

IF  (TcnvP(j)  .PQ,  icnMP(j-n)  then 
TCOmPTJ)  =  -T AHS( TCUMP( J ) ) 
ICOVP(J-I)  s  -TAHS(ICOMP(,l-i  )  ) 
ENO  TF 
110  CONTINUE 
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c 

CF  ii  STEP  C 

CF  iterate  fop  every  COMPniMEMr 
C 

no  199  J  =  UNDCOMP 
DO  1?0  I  =  1,3« 

IE(I)  =  IBLNK 
120  CONTINUE 
C 

CF  TEST  FOR  CO'^POMENT  NUMBERS  LESS  THAN  1  OR  GREATER  THAN  99P9 
C 

IF  (ICOMP(J)  .L£.  0)  IE(1)  2  TCMK 
ICOMPCJl  s  IA8S(IC0MP(J)  ) 

IF  (ICOMP(J)  .RT.  9999)  IE(l)  =  ICHK 
C 

CF  test  for  criticality  flag  NOT  EQUAL  TO  0  1  2  OR  3 

C 

IF  ((IFG(J)  .LT.  0)  .OR.  (IFR(J)  .GT.  3))  IE(2)  =  ICHK 
C 

CF  TEST  TABLE  LOOK-UP  CODE  AND  MATERIAL  CODE 
C 


IF 

(CITAB(J)  .EQ.  0) 

.AND. 

((MATCJ) 

.LT.  1) 

.OR. 

$ 

(MAT(J)  .GT.  11))) 

IF(3) 

=  ICHK 

IF 

((MAT(J)  .EQ.  0) 

.AND. 

f (ITAB(J) 

.LT.  1) 

.OR. 

S 

(ITAB(J)  .GT.  9))) 

lETtt) 

=  TCHK 

IF 

({ITAB(J)  .NE.  0) 

.AND. 

(MaT(J) 

.NE.  0)) 

THEM 

IE(3)  s  ICHK 
lEfa)  s  ICHK 
END  IF 
C 

CF  TFST  FOR  ANALYSIS  CODE  NOT  EQUAL  TO  0  1  OR  2 

C 

IF  ((lANA(J)  .LT.  0)  .OR.  CIANA(J)  .GT.  2))  IE(SJ  s  ICHK 
C 

CF  test  for  negative  OR  ZERO  INITIAL  OPERATING  TEMPERATURE 
C 

IF  (TINIT(vT)  .LE.  0.)  IE(6)  =  ICHK 
C 

CF  TFST  INFLUENCE  MODE  THICKNESS  AND  DENSITY  FACTOR 
C 

IF  (THINFL(J)  .LT.  0.)  IF(P)  =  ICHK 

IF  (CRHOFCJ)  .LT.  0.)  .OR.  (RHDEC.I).  GT.  1.))  IF(IO)  s  IfHK 
IF  (((ThTNFL(J)  .GT.  0.)  .AMD.  fRHOFIJ)  .GT.  0.1)  .OR. 

3  ((THINFL(J)  .LE.  0.)  .ANO.  (WHOF(J)  .LE.  0.)))  THEM 
IE(9)  =  TCHK 
TE(IO)  =  IChK 
END  TF 
C 

CF  TFST  system  nm.vbep  ANO  M(j|_TypLY  VULNERABLE  FLAG 
C 

IF  ((IY(J)  .LT.  0)  .OR.  (IY(J)  ,GT.  10))  IF(ll)  =  TCHK 
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IF  ((IU(J).  LT.  0)  .OP.  (TU(J)  .GT.  1))  IE(12)  =  ICHK 
IF  ((IY(J)  .EG.  0)  .A\'D.  (IIJ(J)  .NE.  0))  THEN 
lE(ll)  =  ICHK 
IE(12)  =  ICHK 
END  IF 
C 

CF  TEST  DEPTH  OF  PENETRATION  AND  ASSOCIATE  PROBABILITIES  OF  KILL 
C 

IF  ((NOPNTS(J)  .LT.  2)  .AMO.  (NOPNTS(J)  .GT.  10))  IE(13)  =  ICHK 
IF  (DEPTH(1,J)  .LT.  0.0)  TF(1«)  =  ICHK 
IF  (tPKVAL(UJ)  .LT.  0.0)  .OR.  (PKVALC1,J)  .GT.  1.0)) 
i  IE(15)  =  ICHK 
IX  =  2 

165  CONTINUE 

IF  (  (DEPTHdX,  J)  .LT.  0)  .OR.  (DEPTH(IX,J)  .LT.  DEPTH  ( I X- 1 ,  J )  )  ) 
$  IE(12  +  2<rIX)  =  ICHK 

IF  ((PKVALC1»J)  .LT.  0.0)  .OR.  (PKVAL(1,J)  .GT.  1.0)  .OR. 

S  (PKVAL(IX,J)  .LT.  PKVAL(IX-1,J)))  IE  f  1 3  +  2'*rTX )  =  ICHK 

IX  =  IX  +  I 

IF  ((TX  .LE.  10)  .AND.  (IX  .LE.  NOPNTS(J)))  GO  TO  165 
C 

CF  $  STEP  D 

CF  PLACE  AN  ASTERISK  IN  FRONT  OF  LINES  WITH  ERRORS 
C 

DO  170  I  =  1,33 

IF  (IE(I)  .MF.  IMLNK)  THEN 
IE(3a)  =, TASTER 
GO  TO  180 

fnd  if 

170  CONTINUE 
C 

CF  PRINT  COMPONENT  INFORMATION  WITH  FRRORS  FLAGGED 
C 

1«0  WRITE  (IWR, 190, lOSTATrlOS)  I E ( 1 3 ) , I COMP ( J ) , I E ( 1 ) , I FG ( J ) , I E ( 2 ) , 
f  maT(J)  ,  TE(3)  ,  ITAB(J)  ,IE(9)  ,IAiJA(J)  ,IF(5)  ,TIMIT(J) ,  IE(6) , 

S  THlNFL(.I),IE(9),RH0F(.I),lEnP),IY(J),IF(ll),lu(J),TE(12), 

3.  NOPNTSCJ)  flEd  3)  ,  J,  (DFPTHfK,  J)  ,IE(  12  +  2*K)  ,PKVAL(K,.T)  , 

TE(13  +  2*K),K  =  l,MOPNTS(J)) 

C 

CF  IF  all  components  TESTED?  THEN  *  ELSE  120 
C 

199  CONTINUE 
C 

CE  STEP  E 

CF  PRTMT  CRITICAL  rClMPONFNT  SUMMARY 
r 

write  (Iwr,200) 

WRITE  CIWR,101) 

C 

on  210  T  =  1,3A 
IE(I)  =  IHLNK 
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210  CONTTMUE 
C 

on  235  I  =  1»3 
NTYPE  s  0 

no  220  J  =  1, NOCOMP 

IF  (IFOIJ)  .EQ.  1)  then 
NTYPE  =  NTYPE  ♦  1 

WRITE  (IWR, IRO, lOSTATsIOS)  IE ( 1 3 ) , ICOMP ( J ) , IE ( 13 , IFG ( J )  r 
%  IF(2) ,MAT(J),IE(3)»ITAn(J),lEta) flANACJ) ,IE(S) ,TINTT(J) 

^  IE(6)  »THTNFL(J),IEfP)  rPHOF  (J),TE(103,IY(J),IF(in,TII(J) 

%  IE(123  #NOPNTS(J), IE(13) , J, (DFPTHtK, J) , IEC12  +  2*K) , 

5  PkVALCK,.!)  ,  IE(13+2*K3  ,K  =  l,MOPNTS(J)3 

END  IP 
220  CONTINIIF 
C 

WRITE  (IWR,230)  NTYPE, I 
235  CONTINUE 
C 

CF  PRINT  COMPONENT  LISTING  6Y  MATERIAL  TYPE 
C 

WRITF  (IWR,300) 

WRITE  (IWR,101) 

C 

on  330  I  r  1,11 
NTYPE  =  0 

00  310  J  =  WNOCOMP 

IF  (MAT(J)  .EQ.  T)  THEN 
NTYPE  =  NTYPE  +  1 

WRTTE  (IWR, 190,inSTATslnS)  IE ( 1 3 3 , ICOMP C J ) , I E ( 1 3 , IFG ( J 3  , 

*  IF(23  ,MAT(.I3,IF(33,ITARCJ3  ,IE(«3  ,  IANA(J3  ,  I E  ( 5  3  ,  T  IN  I  T  C  J  3 

S  lE(^3,THlNFL(43,IE(R3,RMnF(J3,IE(103,IYCJ3,IP(113,IU(J3 

S  IF(123,N0PNTS(J3,TF(133,J, ( DEPTH ( K , J 3 , IE ( 1 2+?*K 3 , 

S  PKVALfK,J3,IE(13+2WK3,K  s  l,MOPMTS(J33 

END  IF 
310  CONTiNtJE 
C 

WRITF  (IWR,3203  NTYPE, I 
330  CONTINUE 
C 

CF  PRINT  COMPONENT  LISTING  BY  TABLE  LOOK-UP  INDEX 
C 

write  (lWR,a003 
write  (IWR,t013 
C 

on  a30  I  =  1,9 
NTYPE  =  0 

no  910  J  s  i,MncoMP 

if  (ITAR(J3  .eg.  13  THEN 
NTYOF  s  NTYPE  +  1 

WRITE  f  r,*'R,  190,  rnSTAT  =  ln.S3  IE(  133  ,  ICn>'PCJ3  ,  IE  (  1  3  ,  IFGC  J3  , 
i  TF(23,MAT(.n,IE(33,TTArt(J),IF(a),TANAfJ3,TF(9),TIf'ITfJ3 
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$  Tt(6)»THTNFL(J)»IE(9)r«HOF(J),TE(10)»IY(J),IFCll),TU(J) 

S  IE(  12)  rN'nPNTS(J) ,  IE(13)  f  J»  (DEPTHCK,  J)  ,  IE(  12  +  2*KD  , 

$  PKVAL(K, J) ,IF(13+2*K),K  =  1,M0PNTS(J)) 

END  TF 
aiO  CONTINIIF 

WRITE  (IWR,a20)  NTYPE»I 
«30  CONTINUE 

F  PRINT  COMPONENT  LASTING  BY  ANALYSIS  TYPE 

WRITE  (IWR,500) 

WRITE  (IWR,10n 

DO  530  I  =  0#2 

NTYPE  =  0 

DO  510  J  =  IrNOCOMP 

IF  (lANA(J)  .EO.  I)  THEN 
NTYPF  =  NTYPE  ♦  1 

WRITE  flWR, 190,inSTAT  =  IOS)  IE ( 1 3 ) , I  COMP ( J ) , I E ( 1) , I FG ( J ) , 

S  IE(2) »MAT(J) » IF(3) ,ITABf J) ,IF(a) , lANA(J) ,IF(5),TINIT(J) 

?  IF(6),THlrJFL(J)»IE(9),RHOF(J),IE(10),IY(J),TE(1  ))rIU(J) 

*  IE(  12) »NnPNTS(J)» IE(13)f J/ (DEPTHIK, J) , IE(12  +  ?*K) r 

S  PKVAL(K,J),IE(13+2*K),K  =  l,NOPMTS(J)) 

END  IF 
510  CONTINUE 

WRITE  (IWK,520)  NTYPF, I 
530  CONTIMUE 

F  PRINT  COMPONENT  LISTING  BY  SYSTEM  NUMBER 

WRITE  (IWR,ft00) 

WRITE  (IWR,10l) 

DO  630  I  =  0,10 

NTYPE  =  0 

DO  610  J  =  1, NOCOMP 

IF  {lY(J)  .ED.  I)  THEM 
NTYPF  =  NTYPE  +  1 

WRITE  (Il("R,190,inSTAT  =  lOS)  IE  ( 1  3 )  ,  I  COMP  ( .1 )  ,  T  E  ( I )  ,  I FG  ( J )  , 

!f  TFr?)  ,MAT(J)  ,  IF(3)  ,  TTAH(J)  ,  lECa)  ,  I  AMA(J)  ,  IE(5)  ,TINIT(J  ) 

t  IE(6)  ,THTNFL(J)  ,TE(9),PH0F(J)  ,TE(  10)  ,IY(vI)  ,  IF.  (  1  1  )  ,Ill(J) 

T  TF ( 1?) ,NnPMTS(J) , IE(13) ,J, (DEPThCK, J) , TK ( 12  +  2*K)  , 

i  PKVAL (K,J),IE(13+2*k),K  =  1,NnPNTS(J)) 

END  IF 
610  CONTINUE 

WRITE  (IWR,6?0)  NTYPF,! 

640  CriNTINIIE 


Change  1 


A-28 


JTCG/AS-79-V-008 


CF  EXIT  STOP 
C 

STOP 

C 

100  format  (*1  THE  FOLLOWING  DATA  HAS  BERN  READ  AND  CHECKED  FOR 

S  'ERRORS.*/*  AM  ASTERISK  IN  THE  LEFTMOST  COLUMN  INDICATES  A*, 

S  *  POSSIBLE  ERROR  IN  THAT  LINE.*/*  THE  CHARACTER  *,1H<, 

$  *  IS  USED  TO  POINT  TO  THF  POSSIBLY  ERRONEOUS  ITEM.*) 

101  FORMAT  (// 

1  *  ICOMP  IFG  mat  ITAR  IANA  TIMT'» 

?  5y»*THINFL  RHOF  lY  III  NOPNTS*, 

3  ax, 'CARD*/ 

a  9X,*DEPTH(1)  PKVAL(l)  DEPTH!?)  PKVALC?)  DFPTHC3)*, 

5  2X,*PKVAL(3)  OEPTH(a)  PKVAL(a)  OEPTH(5)  PKVALfS)*/ 

h  RX» 'DEPTH!#,)  PKVAL!#))  DEPTH!?)  PKVAL!?)  OEPTH!B)* 

7  ?X,*PKVAL!8)  DEPTH(9)  RK\/AL!R)  0EPTH!10)  PK  \/ AL !  1 0 )  *  / ) 

190  format  ( 1/» A1 , 15, A1 , 16, A1 ,3! 19, a  1 ) ,F1 1 .2, a  1 ,2!F9.2, A1  ) , 

1  I7,A1,I9,A1,I10,A1,I9,2!/F16.2,A1,9!F9.2,A1))) 

200  format  !*1  CRITICAL  COMPONENT  SUMMARY') 

230  FORMAT  !/*  THERE  ARE  *,ia,*  CRITICAL  COMPONENTS  HAVING  CRITICALI*, 
S  ’TY  FLAG  *,13/) 

300  format  !*1  COMPONENT  LISTING  RY  MATERIAL  TYPE*) 

320  format  !/*  there  ARE  *,ra,*  COMPONENTS  OF  MATERIAL  TYPE  *,I3/) 
aoo  format  !*1  COMPONENT  LISTING  BY  TABLE-LOOKUP  INDEX*) 
aSO  FORMAT  !/*  THERE  ARE  *,14,*  COMPONENTS  HAVING  TAB) E  INDEX  *,I3/) 
50.0  FORMAT  !*1  COMPONENT  LISTING  BY  ANALYSIS  TYPE') 

520  FORMAT  !/*  there  ARE  *,14,*  COMPONENTS  OF  ANALYSIS  TYPE  *,13/) 

600  format  !*1  COMPONENT  LISTING  BY  SYSTEM  NUMBER') 

620  format  !/*  THERE  ARE  *,I4,*  COMPONENTS  IN  SYSTEM  NUMBER  *,13/) 

C 

CF  FINISH 
C 

END 
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SUBROUTINE  PROPY 
C 

CF  START  PROPY 

CF  TITLE  fJKLOOK;  SUBROUTINE  PROPY 

CF  ENTER  PROPY 
C 

common  ICOMP(SOO) ,MAT(500) ,IFG(500) ,ITAB(500),iaMA(500), 

J  TINIT(SOO) ,NOPNTS(500),DFPTH(10,500) ,PKVAL(10,500) , 

$  RHOF(500) , IRVRS,TU(500) , IY(500) 

COMMON  THINFLCSOO) ,SHC?, 170) , JH{5» 170) , CINCH 

COMMON  /ONE/  NOCOMP, FLX, IFLAG,PEAKF,NCRIT 

common  /PROP/  ALP,RHO,SVAL,TMlT,XLAMBD,RATE, JCOMP,M,nPM,C\/AL, 

$  TVAP,CPL» ITER,T 

DIMENSION  C0MDUC(11,2, t0),SPECIF(ll,2,10),DENSIT(ll),TMELT(ll,2), 

$  HE ATFU (11), ALPHA (11,16), ALPHAT ( 1 1 , R ) 

C 

C***** . MATERIALS  PROPERTY  DATA . ***** 

ALL  materials  property  DATA  IS  VERY  INITIAL. 

BARF  MATERIALS-COMPLTNG  CQEFFFICTENT  IS  CONSIDERED  TO  BE  A  CONSTANT. 
COATED/PAIMTED  MATFRT ALS-COIIPLING  COEFFICIENT  IS  A  FUNCTION  OF  INCIDENT 
flux  and  MATERIALS  THICKNESS. 

COUPLING  coefficient  data  IS  FOR  NORMAL  ANGLE  OF  INCIDENCE. 

ALPHA  IS  COUPLING  COEFFICIENT  AS  A  FUNCTION  OF  INCIDENT  FLUX.  ALPHAT 
IS  THE  CORRECTION  FACTOR  FOR  MATERIAL  THICKNESS. 


202«  AL  PAINTED  SURFACE 

DATA  CONDUC ( 1 , 1 , 1 )/6./ 

DATA  (CONOUCd,  1,J)  ,J  =  2,10)/76.,166.,279.,33R.,«29.,«S8.,^*0./ 

DATA  (C0NDUC(1,2,J) ,J=2, 10)/13?.,lSfe., IBS., 189., 175., 16«.,3*0./ 

DATA  SPECIFd  ,  1 ,  1  )/7./ 

DATA  (SPECIFd  ,  1  ,  J  )  ,  J  =  2 ,  1  0  )  /  20  .  ,  93  .  ,  205 . ,  3 1 6  .  ,  «00  .  ,  «27  .  ,  USO  .  ,  2*0  .  / 
DATA  (SPECIF(1,2,J),J=2,10)/Ba9.,907.,966., 1025., 1096., 1129., n5«., 
S  2*0./ 

ALPHA  A^4D  ALPHAT  REPRESENT  CURVE  FITS  TO  INITIAL  AFwL  DATA 
DATA  ALPHAd,  l)/.86/ 

DATA  (ALPHA  d  ,  J )  ,  J  =2 ,  1 6 )  /  ,  72  ,  .  60  ,  .  96 ,  .  <J  i) ,  .  35 ,  .  32 ,  .  29 ,  .  2  7  , 

5  .299,. 229,. 158,. 136,. 11 5,. 1029, .099/ 

DATA  ALPHATd  ,  1)/1.13/ 

DATA  (  AI.PHAT  (  1,J),J  =  2,p)/1.07,.o1,.89,.75,.68,.S9,.3P,.03/ 

data  DFNSITd  )/2770./ 

data  (TvelTCI  ,.t ) ,  J  =  1 ,2)/S02.,2BOO./ 

DATA  HFATFIK  n /3P91 12./ 

7075  AL  DAINTFD  SURFACE 

DATA  C0NDUC(2, 1,  1  )/7./ 
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DATA  (CONOUCC^flf  J)»J  =  ?»  t0)/3.»  107,,?07,,2<>0.,33fe.,401  .,«2P.»2*0./ 
DATA  (C0MDUC(2»2,J),Js2,10)/122.»iai., 177., t 79 . , 1 77 . ,  I  70  .  , 1 b7  .  , 

•S  2*0./ 

DATA  SPFCIF{2, 1,  n/A./ 

DATA  (SPFCIF(2, l,J),J=2, t0)/0.,100.,200.,300.,a00.,a50.,3*0./ 

DATA  (SPECIF(P,2,J) ,Js2,10)/820.,903.f966., 1038., 1 1 29 . , 1 1 97 . , 3*0 . / 
DATA  OENSIT(21/2800./ 

DATA  HFATFU(2)/3807aa./ 

data  (TMFLT(2, J) , Jsl,2)/a76.,0./ 

NO  DATA  ALPHA  AND  ALPHAT  ASSUMFO  SAMF  AS  PAINTED  202«  AL 

DATA  ALPHA(2, l)/.86/ 

DATA  (ALPHA(2, J) , J=2, 1 6 ) / . 72 , . 80 , . 98 , . a 0 , . 3S , . 32 , . 29 , . 27 , 

$  .299, .229, .158, .138, .1 15, .1029, .099/ 

DATA  ALPHAT(2,l)/l.t3/ 

DATA  {ALPHATC2, J) , J=2,9)/1.07, .91 , . 89 , . 75 , . 88 , . 59 , . 38 , . 0 3/ 

5958  (AMr,8)  AL  PAINTED  SURFACE 
DATA  CnNOUC(3,l,l)/7./ 

DATA  (C0NDHC(3, 1,J),.I=2,10)/0.,50., 100., 150.,200.,250.,300.,2*0,/ 
DATA  (C0ND'IC(3,2,J),Js2,  10)/109.,120.,  128.,  131  .  ,  1  32  .  ,  1  35  .  ,  1  38  .  , 

%  2*0,/ 

DATA  SPEClF(3,l,l)/3./ 

data  (SPECTF(3,  1,  J)  ,.Is2, 10)/IOO.,300.  ,850.,8*0./ 

DATA  (.5PECIF(3,2,J),  J=2,l«)/O20.,  1098.,  1?S5.,8*0./ 
data  OFNSTT(3)/3000./ 

DATA  HEATFU(3)/389112./ 

DATA  (TMFLT(3, J) , J=l,2)  /571.,1000./ 

NO  DATA  ALPHA  AND  ALPHAT  ASSUMFO  SAME  AS  PAINTED  2029  AL 

DATA  ALPHA(3, 1 )/.88/ 

DATA  (ALPHA(3, J) ,Js2, 1 8 ) / . 72, . 80 , , 96 , . 90 , . 35 , . 32 , . 29 , . 27 , 

S  .299, .229, .158, , 136, .115, , 1029, .099/ 

DATA  ALPHAT(3,1)/1.13/ 

DATA  (ALPHAT(3,J),J=2,9)/1.07,.91, .89, .75, .88, .59, .38, .03/ 

8AL9V  TI  painted  SUPFACE 
DATA  C0NDUC(9, 1 , I )/7./ 

DATA  (rOMDUC(9, 1  ,  J)  ,.1  =  2,  10)/199.,280. ,  37  I  .  ,  927  .  ,  980  . ,  5  38  .  ,  899  .  , 
t  2*0.  / 

DATA  (C0NmtC(9,2,J) ,J=2,10)/9,5, 11 .8, 19., 15.1 , lb. 3, 17.3, 1«. 8, 2*0./ 
DATA  SOECIP(9, 1  ,  n/8./ 

DATA  (SPEC  IF (9, 1 , J ) , J  =  2 , 1 0 ) /9a . , 20 5 . , i 1 8 . , 92 7 . , 538 . , 69 9  . ,  3 ♦ 0  . / 

DATA  (SPECIF(9,2, J) , J  =  2, 1 0 ) /589 , , 599 . , 8 1 9 . , 890 . , 88 1  .,8  78.  , 3*0./ 

ALPt-A  AND  ALPHAT  PEPPFSEMT  CUPVF  FITS  TD  INITIAL  AF.^l  DATA 
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DATA  ALPHA(ar l)/.86/ 

DATA  (ALPHACa,J) ,J=?, 16)/.68,,5l,.a?,.35, .32, .29, .?8, .28, .25, .?9 
$  .23, .23, .23, .23, .23/ 

DATA  ALPHAT(«,  n/1.59/ 

DATA  (ALPHAT(«,J) ,J=2,9)/1.0a, .98, .98, .96, .96, .91 , .87, .83/ 

DATA  (TMELTia, J) , J=1,2)/1S65.,2277./ 

DATA  DF(\iSTT(a)/«a30./ 

DATA  HEATFIJ(9)/U26870./ 

PUKE  TI  painted  SURFACE 

DATA  CnNDUC(5, 1 , 1 )/9./ 

DATA  CCONOUCCS, 1 , J) , J=2, 10)/  27 . , 1 27 . , 227 . , 927 . , 627 . , 827 . , 1 227 . , 
$  1S27.,1627./ 

DATA  Cr.0NDUC(5,2,  J)  ,J  =  2,  1  01/21.9,20.4,  19.7,19.4,20.2,21.3,24.5, 

S  27.1,28.0/ 

DATA  SPECIF(«;,l,l)/7./ 

DATA  (SPECIF  f  5,  1 ,  J )  ,  .1  =  2 ,  1  0  ) /27  .  ,  1  27  .  ,  327  . ,  627  .  ,  827  .  ,  927  .  ,  1127., 

S  2*0./ 

DATA  (SPECIF(5»2/ J), J=2,10)/422.,570.,677.,728.,743.,695.,695., 

S  2*0./ 

DATA  (TMELT(5,J) , J=l,2)/1660.,0./ 

DATA  MEATFU(5)/435136./ 

DATA  OENSIT(5)/450n./ 

NO  DATA  ALPHA  AND  ALPHAT  ASSUMED  SAME  AS  PAINTED  6AL4V  TI 
DATA  ALPHA(5, 1 )/.66/ 

DATA  (ALPHA (5, J) ,J=2, 16)/. 66, .51, .42, .35, .32, .29, .28, .26, .25, .24 
$  .23, .23, .23, .23, .23/ 

DATA  ALPHAT  (5,1)/1.59/ 

DATA  (ALPHAT(5»  J)  ,.T  =  2,P)/1 .04,  .98,  .  98 ,  .  96 ,  .  96 ,  .  9 1  ,  .  87  ,  .  8  3/ 

VM65-J  (ZK60)  MAG  ALLOY  PAINTED  SURFACE 

DATA  C0NDUC(6,1,1)/1./ 

DATA  (C0NDUC(6, 1 , J) ,J=2, 1 0 ) /25 . , 8*0 . / 

DATA  (CONOUC (6»2, J) , J=2, 10)/) 09.,8*0./ 

DATA  SPEC1F(6,1,1)/8./ 

DATA  (SPECTF(6,1,J),J=2, 10)/152.,227.,327.,427.,5?0.,S21.,627., 

5  727., 0./ 

DATA  (SPECIF (6,2, J) ,J  =  2, 10) /I  063.,  1075. ,  1205. ,  1031  . ,  1  380 . ,  1305  .  , 
S  1364. , 1599., 0./ 

data  HFATFU(6)/32635P./ 

DATA  DFNSTT(6)/1830./ 

data  (TMFLT(6,J),J=1,2)/520.,0./ 

NO  DATA  ALPHA  AND  ALPHAT  AS.SUMEl)  SIMILAR  TO  PAINTED  2024  AL 

data  ALPHA(6, 1)/.86/ 

DATA  (  alpha  (6,  J) ,  js:2,  16)/. 72, .60, .48,. 40,.  35,. 32,. 2«,. 27, 
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S  .2aa,,22a,.l5flf .136».llfl,.1072,.10/ 

DATA  ALPHAT(h,l)/l.l3/ 

DATA  (ALPHAT(6,  J)  ,  J=2,«»)/l  .07,  .91  ,  . 89 ,  . 75 ,  . 68 ,  . 5a ,  .  3H ,  .  03/ 

ml5  (az01a,az«o)  mag  alloy  painted  surface 
DATA  C0N0IIC(7, 1 ,  l)/3./ 

DATA  (CnNDIJC(7,  l,J),J=2,l0)/0.,  I0  0.,20  3.,6*0./ 

DATA  (COMD'IC  (7,2,  J)  ,  J=2,  l0)/64.9r7  3.6,80.8,6*0./ 

DATA  DENSIT(7)/1800./ 

DATA  HEATFU(7)/33890a./ 

DATA  (TMFLT(7,J),J=1, 21/990. ,0./ 

DATA  SPECIF(7, 1 , l)/7./ 

DATA  (SPEC TF (7, 1,J),J=2, 101/127., 227., 327., 927., 507., 627., 727., 
$  2*0./ 

DATA  (SPECIF (7,2, J1  ,J=2, 101 /I  059.,  1121.,  1167., 1205.,  1222.,  1926. 
f  1926. ,2*0./ 

NO  DATA  ALPHA  AND  ALPHAT  ASSUMED  SIMILAR  TO  PAINIED  2029  AL 
DATA  ALPHA(7, 11/.86/ 

DATA  (ALPHA(7, J1 , J =2 , 1 6 1 / . 72, . 60 , . 96 , . 90 , . 35 , . 32 , . 29 , . 27 , 

%  .299, .229, .150, .136,.! le, . 1072, .10/ 

DATA  ALPHAT(7, 1 1/1.13/ 

DATA  (ALPHAT(7, J1 , J=2,91/1.07, .91 , . 09 , . 75, . 68 , . 59 , . 38 , . 0 3/ 

A731R  MAG  ALLOY  PAINTED  SURFACE 
DATA  CnN0llC(8, 1,  11/3./ 

DATA  (C0MnUC(8, 1,J1,J=2, 101/127., 23a., 332., 6*0,/ 

DATA  (C0NDUC(8,2,Jl,J=2,101/9a.,101., I  07., 6*0./ 

DATA  (TMELT ( 8, J1 ,J  =  1,21/605.,  1 107,/ 

DATA  DENSIT(01/177O./ 

DATA  HFATFU(81/538909./ 

DATA  SPECIP(0, I, 1 1/0./ 

DATA  (SPECIF (8, 1,J1,J=2, 10 1/152., 227., 327., 527., 555., 556., 627., 
%  727., 0./ 

DATA  (SPFCIF(8,2,Jl ,Js2, 101/1 107., 1 167. , 1297. , 1990., 1993., 1373, 
1i  1901  .,  1998., 0./ 

MO  DATA  alpha  and  ALPHAT  ASSUMED  SIMILAR  FD  PAIMTFD  2029  Al. 
data  ALPHA(e,ll/.H6/ 

DATA  (ALPHA(8,sT1  ,  J=?,  1 6 ) / . 72,  . 60 ,  . 96 ,  ,  90 ,  .  35 ,  .  32 ,  . 29 ,  . 27 , 

S  .299, .229, . 158, . 136, . 118, .1072, .10/ 

DATA  ALPHAT(8,1 1/1.13/ 

DATA  ( AlPHAT(8, J1 ,Js2,91/l .07, .91 , . 89 , . 75 , . 68 , . 59 , . 38 , , 0 3/ 

C 

C  FI935  (IMONIC  751  NICKEL-CHKDMIUM  ALLOY  PAlNTFD  SURFACE 
C 

DATA  C0NDUC(9, 1, 1 1/7./ 
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DATA  (CONOIIC  (9, 1,  J)  ,J  =  2,  10)/100.,200.,«00.,600.,800.,  1027.,  13«5  2., 

$  2*0./ 

DATA  (C0NDlJC(9,2f  JD ,  J  =  2,  1 0 )  / 1  5.9 , 15 . 7  ,  19 . 1 , 22 . 6 , 26 . 0  ,  ?9 . 3 , 55 . B , 

$  2*0./ 

DATA  HEATFU(9)/32216fl./ 

DATA  DENSIT(9)/8«00./ 

DATA  (TMELT(9, J) , J=l,2)/la00.,0./ 

DATA  SPECIF(9,l,l)/6./ 

DATA  (SPBCIF(9, 1, J), J=2, 10)/100.,300. ,500.,600. ,750. ,800. , 3*0./ 
DATA  (SPECIF(9,2»  J)  ,  J  =  2,  10)//168.,502.,512.,623.,60  6.,619.,3*0./ 

NO  DATA  ALPHA  AND  ALPHAT  ASSUMED  SAME  AS  PAINTED  309  STAINLESS  STEEL 

DATA  ALPHA(9,n/.86/ 

DATA  (ALPHA(9, J) , J=2» 16)/.59,.«3, .39, .30, .26, .22, .19, .18, .17, .16, 

S  .12, .12, .12, .12, .12/ 

DATA  ALPHAT(9,  1)/1.<J1/ 

DATA  (ALPHAT(9, J) , J=2,9)/l . 09 , . 98 , . 96 , . 96 , . 96 , . 96 , . 96 , . 96/ 

309  (1KH18N9T)  STAINLESS  STEEL  PAINTED  SURFACE 

DATA  DENSIT(10)/7990./ 

DATA  hFaTFII(10)/P97069./ 

DATA  (TMELTC 1 0, J) , J=l,2)/1900.,0./ 

DATA  CONDIICCIO,  I,  l)/7./ 

DATA  (CONDUCCIO, 1,J) ,J=2, 101/200., 300., 900., 500., 650., 1027., 1392., 
i  2*0./ 

DATA  (CONDUC(10,2,J) ,. 1  =  2, 10) /IP.,  19.5,20. ,21 .3,25. ,29.5,39.7,2*0./ 
DATA  SPECIF(10,l,l)/5./ 

DATA  (SPECIF ( 10, 1,J) ,j=2,10)/200.,900,,600.,e0n., 1093., 9*0./ 

DATA  (SPECIFC 10,2, J) , J=2, 1 0)/519.,553.,573.,598.,669.,9*0./ 

ALPHA  AND  ALPHAT  REPRESENT  CURVE  FITS  TO  INITIAL  AFWL  DATA 

DATA  ALPHACIO, l)/.86/ 

DATA  (ALPHA  ( 1  0  ,  J  )  ,  .1  =  2 ,  1 6 )  /  .  59  ,  .  93 ,  .  39 ,  ,  30  ,  .  26 ,  .  22 ,  .  1 9 ,  .  1  8 ,  .  1  7  ,  .  1  6 , 
S  .12, .12, .12, .12, .12/ 

DATA  ALPHATdO,  n/1.91/ 

DATA  (ALPHAT  (  10,  J)  ,  J  =  2,9)/l  .  09  ,  .  98  ,  .  96,  .  96  ,  .  9fe  ,  .  96  ,  .  9(,  ,  .  96/ 

CU  BARE  SURFACE 

DATA  CDNDIlCd  1,1  ,l)/5./ 

DAT  A  (CONDUC ( 1 1 , 1 , J ) , J  =  2 ,  1 0 ) /89 . , 232 . , 9 1  1  . , 9 99 . , 999  . , 9*0  .  / 

DATA  (CONDUC ( 1 1 , 2 , J ) , J  =  2 , 1 0 ) /90 3 . , 399 . , 388 . , 3P 7  .  , 3«6  .  ,  9 *  0  .  / 

data  SPECTFdl,l,l)/9./ 

DATA  (SPECIF  ( 1 1  ,  1  ,  .1 )  ,  J  =  ? ,  1  0  ) /93  .  ,  209  ,  ,  3 1 6  .  ,  9?7  .  ,  538  . ,  7  6  0.  ,871  .  , 

T  982. ,1065./ 

DATA(SPFCIFdl,2,J),J  =  2,  l<))/397.,902.,919.,923.,990.,9  73.,993., 

S  51 3., 590./ 

DATA  DENStTd  1)/8960./ 
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DATA  (TMELTC 1 1 , J ) , J= 1 , 2 ) / 1 063 . , 2595 . / 

DATA  HFATFIK  1  n/21 1710./ 

C 

C  ALPHA  IS  A  GUESS 
C 

DATA  (ALPHA! 1 l,J),J=l,lA)/.a,l5*0./ 

C 

C 

MATL  =  MAT(N) 

C 

C  IF  ITEP  .NE.O,  FIRST  ITERATION  OP  TEMPERATURE  HAS  REEL'  DONE, 

C  ONLY  NEED  TO  RE-FVALUATE  THOSE  PROPERTIES  WHICH 

C  ARE  TEMPERATURE  DEPENDENT 

C 

CF  $  STEP  A 

CF  IF  encounter  properties  ALREADY  COMPUTED?  THEN  900 
C 

IF  (ITER  .EQ.  0)  THEN 
C 

CF  GET  VAPOR  TEMPERATURE/  MELTING  TEMPERATURE,  AND  HEAT  OF  FUSION 
CF  *  FOR  THE  MATERIAL  TYPE 
C 

T  =  TINIT(N) 

TVAP  s  TMELT(MATL/2) 

TmlT  =  TMELTCMATL/D 
XLAMPD  s  HEATFU(MATL) 

C 

C  COATED  OR  HARE  MATERIALS  -  GO  TO  250  FOR  COATED  MATERIALS. 

C 

OF  IF  MATERIAL  IS  HARE  COPPER?  THEN  *  ELSE  250 
C 

TF  (MAIL  .GE.  11)  THEN 
C 

CF  GET  COUPLING  COEFFICIENT  FOR  COPPER 
C 

ALP  =  ALPHACMATL/ 1) 

ELSE 

C 

CF  INTERPOLATE  THE  INTENSITY  OEPENDEMT  FACTOR  ALPF 
C 

TF  (PFAKF  .GF.  l.OE+Oa)  THEN 
XVAL  =  l.OF+O/l 
K  s  1  I 

260  CONTINUE 

K  =  K  +  1 
AVAL  =  K  -  10 

IE  (PEAKE  .GT.  XVAL»AVAL)  GO  TO  ?h0 
ELSE 

XVAL  =  l.OF+03 
K  s  1 

510  CONTINUE 
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K  r  K  +  1 
AVAL  =  K  -  1 

IF  (PEAKF  .GE.  XVAL*AVAL)  go  TO  310 
END  IF 

YVAL  s  ALPHA  (MATL»K-n  -  ALPH  A  (  MA  TL  »  K  ) 

EM  =  -YVAL  /  XVAL 

ALPF  =  ALPHA(MATL#K)  +  EM  ★  (PEAKF  -  XVAL  *  (AVALl) 

thickness  CORWECTTON  methodology  is  an  APPROXIMATION  SCHEME 
representing  only  a  first  LEVEL  APPROACH. 

F  INTERPOLATE  THE  THICKNESS  DEPENDENT  FACTOR  ALPT 

DP  =  DPM  /  0.025A 
IF  (DP  .GE.  2.0F-01)  THEN 
ALPT  =  ALPHAT(MATL»R) 

ELSE 

IF  (DP  .GE.  5.0E-02)  THEN 
XVAL  =  5.0E-02 
K  =  6 

360  CONTINUE 

K  s  K  +  1 
AVAL  s  K  -  5 

IF  (DP  .GE.  XVAL*AVAL)  GO  TO  360 

else 

XVAL  =  l.OE-02 
K  =  1 

aiO  CONTINUE 

K  =  K  +  1 
AVAL  r  K  -  1 

IF  (DP  .GE.  XVAL*AVAL)  GO  TO  «10 
END  IF 

YVAL  =  ALPHAT(MATLfK-l)  -  ALPH A T (MATL , K ) 

EM  r  -YVAL/XVAL 

ALPT  =  ALPHAT(MATL»K)  +  EM  *  (DP  -  XVAL  *  (AVAL)) 

END  IF 

:F  compute  the  coupling  coefficient  as  the  PRODUCT  OF  AI.PF  AND  ALPT 
ALPC  =  ALPF  *  ALPT 

IF  ((ALPC  .LT.  ALPHA(MATLrl))  .AM).  (ALPC  .GT. 

S  ALPHA (MATL» 16) ) )  THEN 

ALP  =  ALPC 

else  if  (Al.PC  .GE.  Al  PHA(MATL»  1  )  )  THEN 
ALP  =  AI.PUA  (MATLr  1 ) 

ELSE 

alp  =  alpha (MATLf 16) 

End  te 

:E  get  the  COMPONENT  density  for  the  material  type 


Change  1 


A- 36 


JTCG/AS-79-V-008 


ENO  IF 

RHO  =  OENSITCmaTL) 

TE«P  =  (TMLT  +  T)  /  ?., 

T  s  TEi^P 
C 

CF  3  STEP  R 

CF  interpolate  the  TEMPERATURE  DEPENDENT  PROPERTIES: 

C 

END  IF 
TEMP  =  T 
C 

CF  *  THERMAL  CONDUCTIVITY  AND 
C 

MVAL  =  NTNT(CaNDUC(MATL» 1 » 1 ) )  +  1 
IF  (TEMP  .LE.  CnNDtJC(MATL»  lf2)  )  THEN 
CVAL  =  C0N0UC(MATL»2,2) 

ELSE  IF  (TEMP  .GF.  CONDUC (MATL » 1 » M V AL ) )  THEM 
CVAL  =  C0N0UC(MATL»2»MVAI  ) 

ELSE 

DO  50  I  s  2,mval 

IF  (TEMP  .LE.  CONOIJC(MATL,  1  »  I)  )  THFN 

CVAL  5  CONDUC(MATLf2»I)  -  (CONDIIC  (MATL.  1  ,  U 
*  (C0N0UC(MATl,2, 1)  -  C0NDUC(MATL,2, I-l) )  / 

S  (CONOUC(MATLf  Un  -  COMOUC  (MATLf  I  f  I-in 

GO  TO  100 

end  if 
50  CONTINUE 
END  IF 
C 

CF  *  SPFCIFIC  heat 
C 

100  MVAL  =  NINT(SPFCTF(MATL.I,1))  +  1 

IF  (TEMP  .LE,  SPEClF(MATL.lr2))  THFN 
SVAL  s  SPECIF(MATLr2r2) 

ELSE  IF  (TEMP  .GF.  SPEC  IF (MATL » 1 r MV AL ) )  THEN 
SVAL  =  SPEriF(MATLr2rMVAL) 
else 

no  150  I  =  2, MVAL 

IF  (TEMP  .LE.  SPECIF(MATL, 1 , I ) )  THEM 

SVAL  =  SPEC  IF (MATL» 2r  I )  -  f SPEC  IF ( M A TL f  1 .  I ) 
S  (SPECIF  (viATL»2f  T  )  -  SPEC  I F  (M  A  Tl  ,  ? ,  I  -  I )  )  / 

S  (SPECIF(MATL»  1  »  J  )  -  SPECIF  (MATI  ,  I  ,  I-n  ) 

GO  TO  200 
END  IF 
150  CONTINUE 
F.'n  IF 

200  rOMTlNUE 

c 

WFTIJRN 

C 

CF  EXIT  return 


TEMP)  * 


TEMP)  * 
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CF  FINISH 
C 

EMD 
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c  program  OKPK 

C 

CF  START  QKPK 

CF  TITLE  OKLOOK:  PROGRAM  UKPK 

CF  ENTER  QKPK 

THIS  VERSION  ACCEPTS  LOS  OUTPUT  DIRECTLY  FROM  FALCON  RESEARCH  AND 
development  cn.  parallel  ray  SHOTLINE  GENERATING  PROGRAM  FASTGEN 
dated  OCT.  1973. 

INTEGER  PKNBR 

COMMON  ICOMP(500) »MAT(500) , IFG(500),ITABCSOO),IANA(500)» 

$  TIMl T (500 ) »NOPMTS(SOO) » DEPTH (10, 500) ,PKVAL(10»S0O)  , 

$  RHOF(500) , TRVRS,TU(500) , lY (500) 

COMMON  THTNFL(500) ,SH(?, 170) , JH(5r 170) , CINCH 

COMMON  /ONE/  MOCOMP,FLX, IFLAG, PEAKE, MCRIT 

COMMON  /TWO/  XLOS(100),JHT(lfl0),NENC,ORQ(100) 

common  /three/  PKTIMF( 10,200) ,PLS(?00) , I 1 (POO) 

COMMON  /FOUR/  RATES(l00,25),ETIM(25),FXCM(2S),FyM(25),TFMAX, 

%  TIMAX(25) ,MAXT(27) ,NTMAX 

COMMON  /LUNITS/  IRQ, TWR, TIN, TOUT 
COMMON  /SI7ES/  ITC,IFX,IFXX 
DIMENSION  THRATl (500) ,THRAT2(500) 

DATA  ITC,MAXENC,PKMRR,IFX,IFXX  /500 , 1 00 , 1  0 , 25 , 27/ 

DATA  IRD,IWR,IIM,T0UT  /5,6,1,?/ 

DATA  MAXT  /27*0/ 

DATA  MAT(«99)/1/,MAT(500)/2/ 

DATA  IFG(999)/0/, TFG(500)/0/ 

DATA  ITAB(999)/0/, ITAB(500)/0/ 

DATA  IANA(a9q)/2/,IANA(500)/l/ 

DATA  TINIT(a99)/l 10./,TlMTT(500)/35./ 

DATA  IY(a99)/0/,IY(500)/0/ 

data  RHOF(a9g),RHOE(500)/l.,l./ 

DATA  lECHO  /!/ 

OPEN  (IRD,FILE='QKPKDATA 'rRECFMs'DS' ,MAXRECL=flO,PAD='YES' ) 

OPEN  (IWR,RILE='OKPKPRTNT',RECFMs'OS ' ,CARRI AGE  CONTROL  =  *FORTRAN  ' ) 
OPEN  (T IN, PILES 'OKPK TAPE  IN', FORMS 'UNFORM ATTED' ,RECFM=' VAR  I  ABLE  ' ) 
OPEN  ( I  OUT, files' QKPK T APFOUT ', FORMS 'UNFORMATTED ' rRECFMs* VAR  I  ABLE' ) 

TO  SUPPRESS  ECHO  OF  QKPK  OUTPUT  FILE,  SET  lECHO  =  0 

TTC  IS  THE  DIMENSION  OF  THE  COMPONENT  ARRAYS 
IFX  IS  IMF  dimension  OF  THF  FLUX  ARRAYS 
IFXX  IS  IPX  +  ?. 

DATA  STATEMFNTS  FOR  LOCATIONS  ITC-1  A^D  ITC  (LAST  FOR  ICOMP, 
MAT,  lANA,  FTC.)  ARP  FOR  AL  202«  ANO  Al.  7075,  WE  SPPC  T I VFL  Y . 
ANY  OXXX  rOMRONENT  MUMBFR  THAT  CAN  RE  MEPRKSFNTED  BY  THE  DATA 
T,N  LOCAIIOM  ITC-l  NFED  NOT  ^\L  IMPt'T.  LIKFWISF  7XXX  COMPONENT 
r  MAY  USE  DFFAULI  VALUES  IN  inCATlON  TTC. 
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C 

CF 

CF 

C 

C 

CF 

C 

C 

C 

C 

C 

C 

CF 

CF 

C 


C 

C 

C 

C 

c 

c 

c 

c 

CF 

CF 

C 

C 

C 

C 


C 

C 

c 


S  STEP  A 

EXECUTE  RDATA  READS  THF  QKLOOK  FORMATTED  DATA  DECK 
CALL  RDATA 

IF  DECK  INCLUDED  TIME  INTERVALS?  THEN  ♦+! 

IF  (NTMAX  .LE.  0)  THEN 

IF  NO  TIMES  FOR  SHOTLINE  COUNTS  WERE  READ  BY  RDATA, 

USE  THF  times  from  THE  FLUX  DISTRIBUTION 

NTMAX  =  IFMAX 

ASSIGN  FLUX  DISTRIBUTION  TIMES  AS  DEFAULT  TIME  INTERVALS  FOR 
*  SHOT  line  breakdown 

DO  3  I  =  1, NTMAX 
TIMAXfT)  s  FTIM(I) 

3  CONTINUE 

END  IF 

lY  IS  THE  SYSTEM  NUMBER.  E.G.,  1  COULD  RE  USED  FOR  ALL 
MULTIPLY-VULNERARLE  components  in  the  PROPULSION  SYSTEM, 
COULD  RE  USED  FOR  FLIGHT  CONTROLS,  FTC. 
vulnerable  areas  WILL  RF  DEVELOPED  AND  STORED  IN  ARRAY 
PMULT  ftITHiM  SIIRROUTIME  PFNT. 

S  STEP  R 

PFAD  VIFWING  plane  DESCRIPTION 

READ  (TIN)  A7,FL,GPin, TDVEH,YMAX,YMIN,ZMAX,ZMIN,RAnEXP 

IF  CINCH  IS  .LE.  0.,  ASSUME  INPUT  ALREADY  IN  INCHES 

IF  (CINCH  .LF.  0.)  CINCH  r  1.0 
CMETER  =  CINCH*0.025« 

CONVERT  grid  SPACING  TO  INCHES 

GRID  =  GRID  *  CINCH 
YMAx  =  YMAX  *  CINCH 
WTN  =  vmjN  *  CI^'CH 
ZmAX  t  ZMAX  *  CINCH 
ZMIN  s  ZMIN  ★  CINCH 
IF  (TRVRS  .EO.  n  ThFN 
Y1  =  -YMAX 
YMAX  r  -YN'IN 
Y  M I N  =  Y  1 
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BL  =  -EL 

Az  s  AZ  -  lao. 

IF  (AZ  .LT.  0.)  AZ  =  A7  +  360. 

EMO  IF 
C 

CF  EXECUTE  FSORT  SORTS  THE  COMPONENT  INFORMATION  ARRAYS  INTO 
CF  *  ascending  ORDER  BY  COMPONENT  NUMBER 
C 

CALL  FSORT (inOMP,NOCnMP,MAT, teg » IT AB, I  AN A , T I  NIT » MOPNT S » DEPTH , 

$  PKVAL»  iTCfPKNBRf  THTNPL»RH0P,  TY,  lit) 

C 

C  THESE  ARRAYS  ARE  NOW  SORTED  IN  ASCENDING  ORDER  OP  COMPONENT 

C  numbers  --  PUT  ON  EILF  TOUT 

C 

CF  PRINT  THE  COMPONENT  INFORMATION  ARRAYS 
C 

WRTTE  (IWR,1003) 

C 

on  50  J  =  1, NOCOMP 

WRTTF  (TWR,l00a)  I  COMP ( J ) , IPG ( J ) , M A T ( J ) » I T AB ( J ) , I  AN A  (  J 1  , 

%  TINIT(J) ,THIMPL(J) »RHnP(J) , IY(J) , IHCJ) , J, tDEPTHIT, J) , 

$  PKVAL(T»J)»I=1»N0PNTS(J)) 

r 

c  convert  input  lengths  to  meters 

c 

DO  ao  I  s  l,NOPNTS(J) 

DEPTHCIrJ)  s  DEPTH(I,J)  *  CMETER 
/40  CONTINUE 

THtNPL(J)  =  THlNEL(J)  *  CMETER 
50  CONTINUE 
C 

NENC  =  0 
TEILL  =  0 
TPM  =  TEMAX  -  1 
lEXM  s  lEXX  -  1 
C 

CE  WRITE  VIEWING  PLANE  DESCRIPTION,  COMPONENT  DATA,  AMO  ELUX  TAHLE 
C 

WWI TE  (TOUT)  AZ,FL,GPID, lUVEH, YMAX , YMI N , 7M A  X , ZM IN , NOCOMP 
WRT  IE  (  lOItT)  (  ICOMPd  )  ,IFG(i),TYfI),IU(l),  'inpMTS  CDdPKVALCJ,!), 
$  J=1  ,NOPMTS(  I  )  )  ,  I  =  I  ,NnCOMP)  ,  IPV/RS,  IF'^AX,  CETI^’(  I  )  ,ExrM(  I  )  ,  T  =  1  , 

temax) 

TF  (TECHO  .EO.  1)  then 
WRITE  (IwR,  1  000)  lOIIT 

WRITE  (IWR,  1  01  a)  AZ,FL,GRTD,  lOVEH,  YMAX,  Y MIN,  ZMAX,  7^'T^l,NncnMP 
write  ( I >iP,  1015) 
on  60  I  s  l,NnCOMP 

wPITE  (TwR,1016)  TCOV:P(T),IFG(I),TY(I),IU(n, 

.T  NOPMTSC  I )  ,  (PKVAL  (J,  I  )  ,.I=l  ,NnPNTS(  T  )  ) 

60  CONTINUE 

^RITE  (TWR,1017)  IRVRS, TEMAX, f ETIM( n ,FXC^(  I  ) , I  =  1,IFVAX) 
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FNO  if 
C 

CF  $  STEP  C 

CF  REAH  SHOT  LINE  OATA  ON  NEXT  RECORD 
C 

100  CONTINUE 

RFAD  (IIN)  (0UM,fSH{I,J),I  =  W2),(JH(I,J),I  =  l,5),J=U170) 

C 

CF  $  STEP  D 

CF  LOOP  TO  PROCESS  EACH  SET  OF  LOS  OATA 
C 

101  CONTINUE 

DO  no  J  =  lfl70 
C 

C  JH(2,J)  =  0  SIGNALS  END  OF  VIEW 

C 

CF  IF  FND  OF  VIEW?  THEN  5000 
C 

IF  (JH(2»J)  .EQ.  01  GO  TO  5000 
ICODE  =  M0D(JH(1,  JlnO) 

NENC  =  NENC  ♦  1 
C 

C  DIMENSIONS  ARE  SET  FOR  A  MAX  OF  100  COMPONENTS  PER  SHOT  LINE 

C  ATTEMPTS  TO  LOAD  ABOVE  THIS  RESULTS  IN  A  STOP 

C 

CF  IF  MORE  THAN  100  ENCOUNTERS  ON  THF  SHOT  LINE?  THEM  530 
C 

IF  (NFNC  ,GT.  100)  GO  TO  530 
C 

C  LOS  IN  METERS 

C 

XLOS(MENC)  =  FLOAT (JH{3,J) )  ♦  0.01  *  CMETER 
C 

C  COMRONENT  NAME 

C 

JHT(NFNC)  =  JH(2»J) 

C 

C  ORLIOUITY 

C 

IF  CTWVRS  .FQ.  0)  THEN 

OBO(NFMC)  =  FL0AT{JH(«,J))  *  0.001 
ELSE 

OBO(NFNC)  =  FL0AT(.IH(5»  J) )  *  O.OOl 
ENO  IF 
C 

C  ICODE  =  o  signals  FMD  OF  SM('T  LINE 

C 

CF  IF  FMD  OF  SHOT  LINF?  TH^N  *  ELSE  110 
C 

IF  (TCODE  .EO.  R)  THEM 
C 
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CF  $  STEP  F 

CF  IF  WANT  SHOT  LINE  DIPECTION  REVERSED?  THEM  *  ELSE  *+l 
CF  EXECUTE  REVRSE  REVERSES  THE  ORDER  OF  THE  COWPONENTS  ON  THE 
CF  *  SHOT  LINE 
C 

IF  (IRVRS  .EQ.  1)  CALL  REVRSE(J) 

C 

CF  EXECUTE  RAT  COMPUTES  PENETRATION  RATES  FOR  EACH  ENCOUNTER 
CF  *  AT  EACH  FLUX  LEVEL 
C 

DO  170  IR  =  1,TFMAX 
PEAKF  =  FXCM(IR) 

FlX  =  FXM(IR) 

CALL  RAT  (RATES(l,IH)#IR»f''AXEi\iC) 

IF  (IFLAO  .EO.  0)  00  TO  100 
170  CONTINUE 

C 

C  THE  VALUES  OF  NENC  (NO.  OF  ENCOUNTERS),  NCRIT  (NO.  OF 

C  CRITICAL  EMCOIJMTERS),  AND  IFLAR  (=0  IF  NO  CRITTCALS) 

C  ARE  SET  BY  SUBROUTINE  RAT. 

C 

C  SUBROUTINE  RAT  ALSO  CHANGES  JHT  TO  THE  LOCATION  OF 

C  THE  COMPONENT  IN  ARRAY  ICOMP,  AND  XLOS  TO  THE  ADJUSTED 

C  THICKNESS  IN  METERS  (ADJUSTED  BY  RHQF  OR  THINFL) 

C 

C  PKTTME  AND  II  FIRST  CONTAIN  Y  Z  NCRIT 

C  (Y  AND.  Z  POSITIONS  APE  NOT  CONVERTED  TO  INCHES  ) 

C  A  ZERO  NCRIT  INDICATES  NO  CRITICAL  COMPONENT 

C  on  THE  SHOT  LINE 

C 

CF  S  STEP  F 

CF  STORE  THE  SHOT  LINE  COORDINATES  AND  NUMBER  OF  ENCOUNTERS  IN  THE 
CF  *  BINARY  OUTPUT  ARRAYS 
C 

1«0  IFILL  =  TFILL  +  1 

PKTIME(l,IFILL)  =  SH(1,J)  *  CINCH 

PKTIME(2, IFILL)  =  SH(2,J)  ♦  CINCH 

DO  IRQ  K  s  i,oKMRP 

PKTTME(K, IFILL)  =  0.0 
190  continue 

PLS(TFILL)  =  0. 

II  (IFII.L)  =  NCRIT 
C 

C  MAXT(IFXX)  counts  The  number  OE  NON-CRITIC AI.  SHOT  LINES 

C 

IF  (NCRIT  .EO.  0)  MAXT(IFXX)  =  viAXT(IFXX)  +  1 


CF  IE  BINARY  OUTPUT  ARRAYS  FULL?  THEN  *  ELSE 
C 

IF  (IFILL  .EO.  200)  THEN 
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IfjRlTE  BINARY  PUTPUT  ARRAYS 

WRITE  (inUT)  ( (PKTIWE(IX» JX) , IX  =  1 , 10) ,PLS( JY) , 1 1 (JX) , 

5  .jx  =  i»aoo) 

IF  (lECHO  .EQ.  n 

I  WRITE  (IWR»100?)  ((PKTTME(IX,JX) , IX=1 , 10) ,PLS(JX) , 

S  11  CJX) , JXsl ,?00) 

IFILL  =  0 
END  IF 

IF  critical  encounters  on  shot  LINE?  THEN  *  ELSE  110 

IF  (IFLAG  .NE.  0)  THEN 

TuSED  =  0. 

TMAX  =  0. 

TMAYl  =  1.E30 
IRtJSFO  =  1 


CF  s  st:-p  G 

CF  LOOP  FOR  EVERY  ENCOUNTER  ON  THE  SHOT  LINE 
C 

aOl  CONTINUE 

on  «RR  IT  =  1»NENC 
C 

CF  COMPUTE  AMD  STORE  TIME  NEEDED  TO  PENETRATE  TO  DEPTH  XLUS 
C 

RRAR  =  0, 

IRNOW  =  TRUSED 
TNOW  =  TUSED 
DISLFT  r  XLOSdl) 
aiO  CONTINUE 

RATE  =  RATESdIf  TRNOW) 

IF  CPATE  .LE,  0.)  GO  TO  «30 

IF  (OISLFT  .I,E.  CFTIMdRNOW)  -  TNOW)  ★  RATE)  GO  TO  a?0 
OISLFT  =  DISLFT  -  (FTIMdRNOW)  -  TNnw)*RATE 
TNOW  =  FTTMdRNOW) 

TRNOW  =  TRNOW  ♦  1 
IF  (IRNO^  -LF.  TFMAX)  GO  TO  UlO 
IRNOW  s  TRNOW  -  1 
U20  CONTINUE 

TNOW  r  TNOW  +  DISLFT  /  RATE 
TLOS  =  TNOW  -  TUSED 
RRAR  r  XLOSdl)  /  TLOS 
U30  CONTINUE 

I  r  JHTdl) 

IF  (IFGd)  .NF.  0)  THEN 
IFILL  =  TFTLI  +  1 
PLSdFTLL)  =  TNOW 
TldFILL)  =  JMTdl) 

THRATKI)  =  AmaxI  (THRATl  d  )  »  OEPTHd  ,  I  )  ★  000(11)  / 
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$  XLOvSdT)) 

THPAT2(n  =  AMAXl(THPAT2(I),DEPTH(M0PNTS(n  ,1)  * 

S  OBOdl)  /  XLOSdl)) 

THE  NEXT  NENC  ENTRIES  (ONE  FOR  EACH  CRITICAL  COMPONENT)  ARE 
PKTIMEd)  TIME  NEEDED  TO  PENETRATE  TO  PKMN  FROM 
START  OF  SHOT  LINE 

PKTIMEd)  TIME  needed  TO  PENETRATE  TO  A  AM  INTERMEDIATE 
PK  BETWEEN  PKMN  AND  PKMX  (I  IN  (2,N-n) 
PKTIME(N)  TIME  NEEDED  TO  PENETRATE  TO  PKMX  FROM 
START  OF  SHOT  LIME  (N  IN  (2,101) 

PLS  TIME  NEEDED  TD  PENETRATE  TO  XLOS  EROM 

START  OE  SHOT  LINE 

II  THE  LOCATION  (IE  SUBSCRIPT)  OF  THIS  COMP  ID 

IN  ICOMP 

F  compute  and  store  time  NEEDED  TO  PENETRATE  TO  DEPTH  PKMN 

DO  aao  K  =  1,10 

PKTIME(K, lEILL)  =  0.0 
auo  CONTINUE 

IF  (RBAR  .GT.  0.)  THEM 
DO  ASO  K  =  1,N0PNTS(T) 

PKTIME(K,IFILL)  s  DePTH(K,I)  *  OBOdI)  /  RBAR  + 
i  TUSED 

A50  CONTINUE 

TMAXl  IS  the  EARLIEST  TIME  THAT  THE  MAXIMUM  SHOT  LINE 
PK  WILL  OCCUR 

IF  (  (PKTIMF(NOPNTS(I) ,  TEILL)  .LF.  PLSdFILL)) 

S  .AND.  (PKVAL(NOPNTS(I),I)  .FQ.  1.0)) 

%  TMAXl  =  AMINl(TMAXl,PKTIME(r,JOPNTS(I),IFILL)) 

TMAX  IS  THE  MINIMUM  TIME  NEEDED  TO  PROCESS  ALL 
COMPONENTS  ON  THIS  SHOT  LINE. 

IF  (PKVAL(NOPMTSd),T)  .EQ.  1.0)  THEN 

TMAX  s  AMAXl  (TMAX,  AMIMI  (TNnu,PK  TlMEINOPNTSd  )  , 

I  IFILL))) 

ELSE 

TMAX  =  AMAXI (TMAX, AWINI (TNOW,PLS(TFILL) ) ) 

END  IF 

F  IF  BINARY  OUTPUT  ARRAYS  FULL?  THFN  *  FLSE  *+l 

TF  (IFILL  .ED.  200)  THEN 
F  WRITF  BINARY  OUTPUT  ARRAYS 

WHITE  dOilT)  ( (PKTTMF  (IX,  JX  )  ,  TX  =  1 ,  10)  ,PLS  ( JX)  , 
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S  I1(JX),JX=1,200) 

IF  (IFCHO  .F«.  1) 

$  WRITE  (IWRrtOO?)  (  (  PK T I ME  Cl  X , JV ) , I  X  =  1 , 1 0 ) , 

5  PLS(JX),I1(JX),JX=1,200) 

TFILLsO 
END  IF 
END  IF 
END  IF 

TUSED  =  TNOW 
IRIJvSEO  =  IRNOW 
C 

CF  IF  LAST  ENCOUNTER  ON  SHOT  LINE?  THEN  *  ELSE  901 
C 

999  CONTINUE 

C 

C  FIND  APPROPRIATE  TIME  BIN  FOR  TMAXl  AND  INCREMENT 

C  THAT  BIN.  IF  TMAXl  .GT.  LAST  BIN  TIMF,  INCREMENT  MAXT(IFXM) 

C 

CF  $  STEP  H 

CF  FIND  THF  EARLIEST  TIME  INTERVAL  FOR  MAXIMUM  SHOT  LINE  PK 
C 

TMAXl  s  AMINI (TMAX, TMAXl) 

DO  500  IslfNTMAX 

IF  (TMAXl  .LE.  TIMAXCD)  THEN 

maxt(t)  =  maxtci)  +  1 

GO  TO  510 
FND  IF 

500  CONTINUE 

MAXTCIFXM)  =  MAXT(IFXM)  ♦  1 

510  CONTINUE 

C 

nfnc=o 

C 

CF  S  STEP  I 

CF  IF  MOPE  LOS  DATA  ON  THIS  RECORD?  THEN  101  ELSE  100 
C 

END  IF 
FND  IF 
110  CONTINUE 
C 

OO  TO  100 
C 

C  PND  OF  VIEW 

C 

CF  i  STEP  J 

CF  ;«'RTTE  LAST  RECORD  OF  BINARY  OUTPUT  'nJTh  EM)  OF  VIE'-  FLAG 
C 

5000  CONTINUE 

TPILL  =  IFILL  +  1 
C 

DO  120  J  s  IFILL. 200 
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Il(J)  s  9Q99 
120  CONTIMUe 

END  OF  THE  VIEW  WILL  RE  SEWRED  BY  A  9999  FflR  MEMC»  THE 
NUMBER-  OF  ITEMS  ON  THF  SHOT  LINE 

WRITE  (lOUT)  ( CPKTIME(IX,JX),IXsl, 10) ,PLS(JX) ,11 (JX) ,JX= 1,2001 
IF  (lECHO  .FQ.  1)  THEN 

WRITE  (IWR,  1002)  ( (PKTIMECIX, JX) , IX  =  1 ,  10)  , 

$  PLS(JX),I1(JX),JX=1,IFILL-1) 

WRITE  {IwR,1001) 

END  IF 
C 

CF  PRINT  BREAKDOWN  UF  CRITICAL  SHOT  LINES  BY  TI^E  NEEDED 
CF  *  TO  REACH  MAXIMUM  PK 
C 

write  (IWR,1005)  MAXT(IFXX) 

NSL  =  MAXT(IFXM) 

TF  =  0. 

JF  =  1 

FE  s  FXCM(l) 

C 

DO  520  I  =  1,NTMAX 
TR  =  TF 
TE  =  TIMAX(I) 

Fa  s  FE 
C 

JFF  =  JF 

no  518  J  =  JFF,IFM 
JF  =  J 

IF  (TE  .LE.  FriM(J))  GO  TO  519 
TF  (TE  .LE.  FTIMfJ  +  D)  THEM 
JF  =  J  +  1 
GO  TO  519 
FNO  TF 

518  CONTINUE 
JF  =  IFMAX 

519  FE  =  FXCM(JF) 

WRITE  (IWR,1008)  TB,TE,FB,FE,MAXT(T) 

NSL  s  MSL  +  MAXT(I) 

520  CfiNTlNHE 
TP  s  TF 

TE  =  1.E30 
FR  =  FF 

Ff.  =  FXCM(IFMAX) 

'.VRITF  (IWP,1006)  TR,TE,FH,FE,K.AXT(IFXM) 
wMITR  (TW9,1011)  NSL 
MSL  =  NSL  MAXT(IFXX) 

WRITE  (rwp,101?)  NSL 
C 

CF  PRTNT  LIST  OF  COMPONENTS  WITH  AN  LOS  ThTCKMESS  LESS  THAN 
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CF  *  PKMN  nR  PK.VX 
C 

write  (IWR,1009) 

C 

DO  600  J  =  IfNOCOMP 

IF  (THRATKJ)  .GT.  l.O)  THEN 

WRITE  (IwRrlOlO)  ICOMP(J) ,THRAT1 (J) ,THRAT2( J) 
ELSE  IF  (TMPAT2(J)  .GT.  1.0)  THFM 
WRITE  (IWR»1013)  ICOMP(J) ,THRAT2(J) 

END  TF 
600  rONTlNtJE 
C 

CF  EXIT  STOP 
C 

STOP 

C 

CF  $  STEP  K 

CF  PRINT  FATAL  ERROR  MESSAGFf  TOO  MANY  ENCOUNTERS 
C 

530  CONTINUE 

WRITE  (IWR,100«)  NENC 
C 

CF  EXIT  STOP 
C 

STOP 


1000  FORMAT  (*1  THE  FOLLOWING  IS  AN  ECHO 
S  'QKPK  OUTPUT  FILE  C  LOGICAL  UNIT 

1001  FORMAT  (*0END  OF  ECHO  OF  DATA  WRITTEN 
100?  FORMAT  ( 'OPKTIMF  ( J»  T  )  r  PLSIDr 


'12, 


S  ?0O( 1 1F10.5, 18/) ) 

C'IVALLIFS  used  fop  this  RUN'// 
'  irOMP  IFG  MAT 


OF  THE  DATA  WRITTEN  ON  THF 
)  '/) 

ON  QKPK  OUTPUT  FILE') 
li(I),  J=l,10,  T=),2U0*/ 


1003  FORMAT 
f 
S 
s 

S 
$ 

inoa  FORMAT 
1005  format  (') 

J  'ORRFAKDOWN 

S  'MAXIMUM  PK'/'OHEGIN  T  I V-F  '  ,  5X  ,  '  END 
'END  FLUX '» 5X, 'NUMBER  OF  SHOTLINES') 


5X,  'TMINFL 
8X,  'DEPTUC I ) 
2X,  'PKVAL (3) 

ex,  'DEPTH(6) 
2X,  'PKVALCH) 


RHOF 

PKVAL(l) 
DFPTHf /I) 
PKVAL(6) 
DEPTH(R) 


lY 

DEPTH(2) 
PKVAI.  («) 
DFPTH(7) 
PK VAL (R) 


ITAB 

lU 

PKVAL(2) 
DEPTH(5) 
PKVAL (7) 
DEPTHf  10) 


2X#'PKVAL^nJ 

(TH,I7,3I10,Fll.?,2F10.2fIRrI10,Jll/2(F)5.2,RF10 

('1  TOTAL  NUMBER  OF  NON-CPITICAI.  SHOTLINES  ='fI7 


TOTAL  NUMBER  OF  NON-CPITICAI 

OF  CRITICAL  SHOTLINES  HY  TIME 

TIME  '  ,5X, 'BEGIN  FLUX', 5X 


lANA  TIN  IT', 

CAPO'/ 
DFPTH(3)  ', 
PKVAL (5)  '  / 
DFPTHC8)  ' 
PKVALd  0)  '/) 
?/)  ) 

17// 

NFFDFI)  TO  PEACH  ', 


■S  'END  FLUX  '  ,  5X,  'NUMBFR  OF  SHOlLlNFJi'J 
1006  FORMAT  ( 1 V , F 1 0 . ? f 3X , F 1 0 . 2 , 5X , F 1 0 . 2 » 3X , F 1 0 . 2 , 1 0 X , 1 1 0 ) 
1008  FORMAT  ('ONFNC  ='»Tin,'  WHICH  IS  GREATER  THAN  100'/ 


S  '0.. .PROGRAM  halting') 

THF  following  COMPONENTS  HAVE 

IS  less  than  PK^'^|  nw  PKMV 


1009  FORMAT  ('1  THE  FOLLOWING  COMPONENTS  HAVE  AT  LEAST  OTjE  SnorLINK 
s  '  FNCOUmTEP  where  the  THICKNESS 

THAN  PkMN,  Ct'MROMFNT  P^  IS  /EPP 


^  6X,'TF  THF  thickness  IS  LESS 
♦  'FOP  that  encounter '/6X  f  '  if  Thf  THICKNESS  T LESS  THAf!  PKMX, 

S  'COMPONFMT  PK  IS  LESS  THAN  1.0  FOR  THAT  E  NC  OUNT  E  P  '  /  '  0  C  0  VPn^lE  NT  '  , 
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S  5X, 'MAXIMUM  VALUE  OF  PKyN/TH  ICK-'IESS  ' »  SX  ,  '  MAX  IMLIM  VALUE  OF 
S  'PKMX/THICKNESS  '  } 

1010  FORMAT  (  IX,  I^.,20X,F10.3,25X,F10.'5) 

1011  FORMAT  ('O', 25X, • TOTAL  NUMBER  OF  CRITICAL  SHOTLINES  =',1101 

1012  FORMAT  (/'OTOTAL  NUMBER  OF  SHOTLlNFS  =',I10) 

1013  FORMAT  ( 1 X , 1 6 , 2 1 X , 'LESS  THAN  1 . 0 ' , 2 1 X , F 1 0 . 3 1 

lOia  FORMAT  ('0A2,  EL,  GRID,  lOVEH,  YMAX,  YMIN,  ZMAX,  ZMIN,  NOCOMP'/ 

S  3F10.5,Ifl,4F10.5,T8) 

1015  FORMAT  ('OTCOMRCI),  IFGCT),  IY(I),  ILKT),  NORNTSCI),  (PKVAL(J,I) 
$  'J=l,NOPNTS(n),I  =  l,MncnMP') 

1016  FORMAT  (5I6,10Fa.2) 

1017  FORMAT  ('OIRVPS,  IFMAX,  (FTIM(I),  FXCMdl,  I  =  1,IFMAX', 

$  2I10/4(2F10.3,5X)  ) 

C 

CF  FINISH 
C 

END 
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SUBROUTINE  RAT  ( R  ATE  S  »  T  R » AXENC) 

C 

dimension  log ( 100) , rates (MAXENC) 

COMMON  ICOMP(500) ,MAT(500) , IFG(500),ITAH(500),IANA(500), 

$  TINIT (500) ,NOPNTS(SOO) » DEPTH ( 10, SOO) fPKVAL ( 10,500) , 

$  RHOF  (500  ),  TPVRS,  111(500)  ,  I  Y  (50  0) 

COMMON  THINFL(500) , SH ( 2 , 1 70 ) , JH ( 5 , 1 70 ) , C I NCH 

common  /one/  NncnMP,FLX, iflag,peakf,ncrit 

common  /two/  XLnS( 100) , JHT(IOO) ,NENC,OHQf 100) 

common  /prop/  alp,rhx,cp,tmlt,xlambo,rate, JCOMP, J,DP,XK,TVAP, 

$  CPL,ITEP,T 

common  /sizes/  ITC,IFX,TFXX 

c 

C  THIS  ROUTINE  COMPUTES  THE  PENETRATION  RATES  FOR  EACH 

C  COMPONENT  ALONG  A  SHOT  LINE. 

C 

CF  $  STEP  A 

CF  IF  first  rate  computation  FOR  THIS  SHOT  LINE?  THEN  *  ELSE  110 
IF  (IR  .EQ.  1)  THEN 
IFLAG  =  0 
NCRIT  =  0 
DO  100  I  =  1,NENC 
JCOMP  =  JHT(T) 

CALL  BSRCH(ICOMP,MOCOMP, ITC) 

LOC(I)  s  J 

IF  (IFr,(J)  .NE.  0)  THEN 
C 

CF  COUNT  THE  CRITICAL  COMPONENTS 
C 

NCRIT  =  NCRIT  +  1 
IFLAG  =  I 
END  IF 
100  CONTINUE 
C 

NENC  =  IFLAG 
C 

C  IFLAG  POINTS  TO  THF  LAST  CRITICAL  COMPONENT  ON  THE  SHOTlTNE 

C  IF  IFLAG  =  0,  THERE  ARE  NO  CIRTTICAI.  COMPONENTS  ON 

C  THIS  SHOT  LINE. 

C 

CF  IF  critical  components  ON  SHOT  LINE?  THEN  110  FI  SE  * 

CF  EXIT  RETURN 
C 

IF  (IFLAG  .FQ.  0)  return 
END  IE 
CF  -fi  STEP  H 

CF  LOOP  for  FVERY  ENCOUNTER  ON  THE  SHOT  LINE 
C 

110  CUNTIMIIF 
C 

C  LOOP  THPOUGH  THF  COMPONENTS 
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C 

no  300  I  =  UNENC 
J  =  LOCd) 

DP  =  XLOS(I) 

C 

CF  IF  FIRST  PATE  COMPUTATION  FOP  THIS  SHOT  LIME?  THEM  *  ELvSE  131 
C 

IF  (IP  .FO.  n  THEN 
C 

C  THINFL  is  TmE  normal  thickness  REPLACEMENT 

C  (USUALLY  TWICE  THE  WALL  THICKNESS  FOR  TUHES  MUDELLFD 

r  IN  THE  INFLUENCE  MODE) 

C 

CF  compute  encountered  component  THICKNESS 
C 

IF  (THTNFL(J)  .RT.  0.)  THEM 
C 

C  USE  A  CONSTANT  NORMAL  THICKNESS  FOR  THTS  COMPONENT  INSTEAD  OF 

C  A  RATIO 

C 

OP  s  THINFLCJ)  *  ORQ(I) 

EL-SF 

OP  =  XLOS(T)  *  PHOF(J) 

END  TF 

XLOS(T)  =  DP 
END  IF 
PATE  s  0, 

C 

C  components  HAvINO  7ER0  THICKNESS  ARE  ASSIGNED  A  ZERO 

C  PENETRATION  RATE.  (THIS  MAKES  THE  COMPONENT  'TRANSPARENT* 

C  ...IT  NEED  NOT  HE  PENETRATED  AND  CANNOT  HE  DAMAGED) 

C 

IF  (OR  .GT.  0,1  THEN 
C 

CF  «  STEP  C 

CF  IF  USE  table  LOOK-UP  CODE?  THEN  aOO 
C 

131  CoriTTiJUE 

IF  (TTAH(J)  .60.  0)  THEM 
ITFR  =  0 

r. 

CF  -XECUTE  PPuPY  get  THE  COMPONFNT  PROPERTIES 
C 

CALI.  RRUPY 
CPS  s  CR 
PRO  =  RHX 
C 

C  TAMA  TS  The  ANALYSTS  TYRE 

C  =  t  FOR  MELT  TN  PI.ACF 

r  -  2  POP  mplT  REMOVFO 

C 
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CF  IF  MFLT  IM  PLACF  AMALVSIS?  THEN'  *  FLSF  5<i0 
C 

IF  flArviAlJl  .Ff3.  1)  THFIj 
TTFR  =  1 
T  =  TVLT 
C 

CF  ro.vpuTE  Sn‘-''FACE  temperature 

c 

335  CnMTlUUt 

CALL  PPOPY 

TSTAR  =  TMLT  +  FLX  *  ALP  ★  HP  /  XK 
IF  ( APfiCT-TSTAR J  .GE.  100. )  THEN 
T  =  TSTAR 
GO  Tn  335 
FMO  TF 
C 

CF  CO-'PilTt  PF.''iPTRATin,\j  t^ATF  USING  MELT  JM  PLACE  Ai)ALYSIS 
C 

IF  ((TSTAR  .GT.  TVAP)  .AND.  (TVfiP  .GT,  0.))  TPFM 
STAR  =  XK  *  (TVAP  -  TMLTI  /  UP 

RATE  =  STAR  /  (RHO  ♦  (CPS  *  (TMLT  -  TI^'TT(J))  + 

S  vlAMRO  +  CP  ♦  .5  ♦  (TVAP  -  TMLT))) 

Else 

PATE  =  FLX  *  ALP  /  (RHfi  *  (CPS  *  (T’-IT  -  TTUIKJ)) 
'  YLAmRO  +  CP  *  (.5  *  (TSTAR  +  TmlT)  -  T^.LT))I 

E-'P  IF 
ELSE 
C 

CF  COMPUTE  PEf‘TFPATir>U  RATE  UST\'G  MELT  PE'^OVEl.-  ANALYSTS 
C 

RATE  =  ELX  *  ALP  /  (RmO  *  (CP  *  (TMLT  -  TTf'I''’(J)l  + 

'f'  XLA'^PP)) 

F^n  TF 
PLSE 
C 

CF  FXFCtiTE  TAHLE  GET  PEGCTRATIMM  RATE  HY  TAHLE  inpK-np 
C 

CALL  TAHLE 
EwO  TF 
EMI  TF 
C 

CF  S  STFR  n 

rp  sri'OP  PPrFTRATinM  RAFF  TW  t-'ATFS  ARRAY 
C 

''ATFS(T)  =  RAIF 
Jhtct)  =  .1 
C 

CF  TF  last  shut  I  P'F  F^'Cnur,' i  FR?  TmF'’  *  FI.S^  lln 
C 

300  COSTIIME 
C 
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SUBROUTINE  ROATA 

COMMON  ICOMPCSOO  J  ,MAT  (500)  ,  IF6(500),ITAP(50  0),IANA(‘^00), 

S  TIMIT(SOO) ,MOPNTS (500 ),DFPTH(  10,500) ,PKVAL(  10,500)  , 

-5  RHOF  (500)  ,  IRVRS,  TU(500)  ,  lY  (500) 

COMMON  THINFL(500),SH(2,170),JH(5,170),CUpCH 
COMMON  /ONE/  NnC0MP,FLX, 1FLAR,PEAKF,NCRIT 
CO^’MON  /TtVO/  yLCS(100),JHT(100),MENC,OBO(inO) 

CUMvon  /four/  pates (  100,25) ,FTIN (25) ,FXCM( 25) ,FXM( 25) , IFMAX, 

S  TIMAX (25) ,maXT(27) ,NTMAX 

COMMON  /LUNITS/  T PD , I WR , 1 1 N , I OUT 
common  /SIZES/  ITC,IFX,IFXX 

This  ROUTINE  READS  THE  COMPONENT  MATERIALS  DATA  CARDS 

read  (IPO, 1000)  NOCOMP 

ITC  MUST  HF  AT  LEAST  ThO  GREATFP  THAN  NOCOMP 
TO  ALLOv'J  FOR  THE  DEFAULTS  TO  2020  AL  AND  7075  AL 

IF  (ITC  .GE.  NOCnMP+2)  THEN 

NOCOMP  IS  NUMHEP  OF  COMPONENTS 

TFMaX  ’’S  no.  of  points  in  FLUX  OISTPIRUTTON 

FXCM  FLUX  IN  WATTS/CM2 

FXM  IS  FLUX  IN  WATTS/M2 

FTIm  TS  time  through  which  the  corresponding  FLUX  APPLIES 
IRVRS  IS  THE  SWITCH  FOR  REVERSING  THE  SHOTLINE  DIRECTION 

CINCH  IS  the  factor  for  CONVERSION  FROM  INPUT 

UNITS  TO  INCHES 

READ  (lPD,10n0)  IRVRS, CINCH 

READ  (TRn,]000)  IFMAX 

READ  (IRD,1002)  ( FXCM ( T ) , 1= I , IFM ax ) 

READ  (lRn,10n2)  (FTIM(I), 1=1, IFMAX) 

WRITE  (IWR,Pn00)  NOCOMP, IRVRS, CINCH 
WRITE  (TWR,20()1)  I^MAX 
TE  =  0. 

DO  110  I  =  1, IFMAX 
TH  =  TF 
TE  =  FTIM.(I) 

WRITE  (Iwr,2002)  TR , TE r FXCM ( T ) 
iin  contimuf 

LAST  FLUX  ALSO  APPl.IFS  FOR  AI.L  TTMFS  RtYOND  THE  I.AST 
TIME  READ  In. 

TR  =  TE 
TE  =  l.FTO 

WRITE  (IWR,200?)  TR,Tt,FXCM( IFMAX) 
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CHECK  IF  FLUX  IS  WITHIN  BCHNOS 
DO  160  I  =  1»IFMAX 

IF  ((FXCM(T)  .GT.  0.)  .AND.  (FXCM(I)  .LE.  6.0Et0a))  THEN 

CONVERT  FLUX  TO  WATTS/M2 

FXM(l)  =  FXCM(I)  *  10000. 

ELSE 

write  (IWH»100)  FXCMd) 

STOP 
END  IF 
CONTINUE 

DO  aO  I  =  1, NOCOMP 

lY  =  SYSTEM  NO.  FOP  FACH  COMPONENT  IN  THAT  PARTICULAR  SYSTEM 
IIJ  =  0,  IF  IT  TS  A  SINGLY  VULNERABLE  COMPONENT 
lU  =  1»  IF  IT  IS  A  MULTPLY  VULNERARLF  COMPONENT CNOTF ;  THIS 
WILL  NOT  ALLOW  THIS  COMP.  VA  TP  CONTRIBUTE  TP  THE  TOTAL  VA, 
MOR  TO  THE  SYSTEM  VA) 

THINFL  IS  THE  NORMAL  THICKNESS  REPLACEMENT 
(USUALLY  TWICE  THE  WALL  THTCKNESS  FOR  TUBES 
modelled  in  influence  MODE) 

READ  (IRD, lOOl, lOSTATstnS)  ICOMP ( I) ,maT ( I ) dFG ( I ) , I  TAB ( I ) , 
IANA(I),TINlT(I)»THINFL(I)rRHOFCI),IY(I) , ID ( I ) , NOPNTS ( T ) 

IF  CIOS  .EO.  0)  THEN 

IF  ((NOPNTS(I)  .LT.  2)  .OR.  (NOPNTS(I)  .GT.  10))  THEN 
WRITE  (I'NRdOlO)  IrNOPNTSd) 

STOP 

ELSE  IF  (NOPNTSd)  .GT.  tt)  THEN 
READ  (IROf 1001 rlOSTATsinS) 

END  IF 
END  IF 

IF  (TOS  .GT.  0)  THFN 
WRITE  (IWRdOlS)  I 

WRITE  dWR,  l001,TOSTAT  =  ins)  ICOMPd)  ,  M  AT  d  )  ,  IFC- d  )  .  I  T  AB  (  T  )  , 
TANAd)  dlNITCI)  fTHIMFL  d)  rRHOFCI)  ,  lYd  )  ,IU(I  )  fL'OPNTSd  ) 
STOP 

ELSE  IF  (IPS  .LT.  0)  THEN 

write  (twr,  io2o,TnsTAr=ins)  i-unocump 
STOP 
END  IF 
CDNTINUF 

REWIND  (TRD) 
no  B5  I  = 

PEADdROf  1001) 
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US  CONTTN'UE 

DO  50  .1  =  l,^JnC0^1P 

READ  (IRD,100l)  ICCIMP  (  T  )  ,  M  AT  (  1) ,  IFG  ( IJ  ,  I T  AB  ( I )  ,  I  AN  A  ( I  ) , 

$  TINIT(I),THIMFL(n  .RHOF{I),IY(T)  »Ill(I)  /  NOPNTS(I)  »  (DEPTH  (J,  1) 
S  PKVAL(JrT)»  J  =  l/NOPNTSd)) 

50  CONTINUE 

READ  tine  bins  FOR  SHOTLiNF  max-TJME  COUNTS. 

(IF  NOT  INCLUDED  IN  INPUT,  FLUX  TIME  POINTS  WILL  BE  USED.) 

READ  (TRO, 1000,ENO=60)  NTMAX 

READ  (IPD,1002)  (TTMAX C I ) , 1=1 ,NTMAX ) 

60  CONTINUE 

else 

WRITE  (IWR,200/i)  NOCOMP 
STOP 
END  IF 

RETURN 

100  FORMAT  (/5X, '***i»*  INPUT  ERROR  *****  FLUX  =',E10.2/ 

5  'PROGRAM  halting*) 

1000  FORMAT  (I5,2E10.2) 

1001  FORMAT  (I5,n,lX,Il,I2,13X,Il,F5.0,32X,F3.2,7x,F3.P,2I2/ 

IS,RF7.U/1  lF7.a) 
lOO?  FORMAT  (10F7.0) 

1010  FORMAT  (*  1 5X , '•**★**  INPUT  ERROR  *****  AN  INVALID  NUMBER  *i 

$  *FOR  the  variable  NOPNTS(I)  WAS  READ:' 

H  /?BX,*I  =  *,ia,*  NOPNTS(I)  =  *,10) 

1015  FORMAT  (/SX, '★***★  INPUT  ERROR  *****  ERROR  OCCURRED  DURING  ' 

S  'READ  OF  COMPONENT  CARD  #»,ia,'  IN  THE  SEOUENCE'/ 

%  2«X,'THE  FOLLOWING  VALUFS  WERE  READ:') 

1020  FORMAT  C/5X, '*★***  INPUT  ERROR  *****  END  OF  FILE  OCCURRED  ' 

%  'AFTER  ',ia,'  CARDS  WERE.  READ,' 

S  /28X ,' although  MOCOMP  r  ',10) 

2000  FORMAT  ('  NUMBER  OE  COMPONENTS  =',T5,5X, 

%  'iRVRSs', 15, 5X, 'FACTOR  FOR  CONVERSION  TO  INCHES=  ' , F 1 0  .  « ) 

2001  FORMAT  ('  NUMBER  OF  POINTS  IN  FLUX  DISTRIBUTION  =',15/ 

%  '  RFGIN  TIME  '  ,6X, 'END  T  TME  '  ,  U  X  ,  '  Fl.l  IX  '  ) 

2002  FORMAT  ( I  X , F 1 0 . 2 , 3X , F 1 0 . 2 , 3X , F 1 0 .2) 

200a  format  ('NOCOMP  =',110,'  IS  TOO  LARGE  EOR  ARRAY  DIMENSIONS'/ 

S  '...PROGRAM  HALTING') 

End 
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SURROIJTIME  PEAOIM 
C 

COMMON  I  COMP ( SO  0) ,MAT(500),TFG(50  0),ITAB(500),TANA(500), 

$  TINIT(SOO)  ,->IOPMTS(5OO)#nFPTH(l0,SO0)  ,PKVAL(  1  0,500), 

J  RHnF(500),IU(500),lY(500) 

COMMON  THINFLtSOO) ,NnCnMP 

COMMON  /LUNITS/  IRD,IWP 
COMMON  /SIZES/  ITC/IFX 
OIMEMSrON  FXCM(25) ,FTIM(25) ,TIMAX(2S) 

THIS  ROUTINE  REAPS  THE  COMPONENT  MATERIALS  DATA  CARDS 

READ  (TRD,1000)  NOCOMP 

IF  (ITC  .GE.  NOCOMP+?)  THEN 

NOCQMP  IS  MUMRER  OF  COMPONENTS 

IFMAX  is  NUMRFR  OF  POINTS  TN  FLUX  DISTRIBUTION 
FXCM  TS  FLUX  TN  ;/^ATTS/CM2 

FTIM  IS  TIMF  THROUGH  WHICH  THE  CORRESPONDING  FLUX  APPLIES 
IRVPS  IS  THE  SWITCH  FOR  REVERSING  THE  SHOTLINE  DIRECTION 

CINCH  IS  THE  factor  FOR  CONVFRSION  FROM  INPUT 

UNITS  TO  TNCHFS 

READ  (IPO, 1000)  IRVRS, CINCH 
READ  (IRO,l00n  IFMAX 
WHITE  (tWR,2000)  NOCOMP, IRVRS, CINCH 
IF  ((IFMAX  ,LT.  1)  .OR,  (IFMAX  .GT.  TFX)) 

S  WRITE  (IWR,10n  IFMAX 
WRITE  (IWR,200U  IFMAX 
IF  (IFMAX  ,GT.  IFX)  IFMAX  s  IFX 
READ  (lRn,l002)  (FXCM( I ) , Isl , IFMAX ) 

READ  (lRn,1002)  (FTIMfl), 1=1, IFMAX) 

TE  =  0. 

DO  110  I  =  1, IFMAX 
TB  s  TF 
TE  =  FTIM(I) 

WPITF  (IwR,?002)  TR,TE,FXCM( I ) 

110  CONTINUE 

LAST  FLUX  ALSO  APPLIES  FOR  ALL  TTmFS  HEYOND 
ThF  last  time  read  IM 

TB  =  TF 
TE  =  1.E50 

WPITF  (IWR,2002)  IR,TE,FXCM(IFMAX) 

CHECK  IF  Flux  TS  nllHlN  ROUNDS 
DO  IBO  I  =  1, IFMAX 
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TF  ((FVCM(I)  .LE.  0.1  .09.  (FXCM(I)  .RT.  A.OE  +  O^i)) 

»  If'RITF  (Il'i«,100J  FXC'Jid) 

160  CONTINUE 

DO  «0  I  s  1, NOCOMP 

TY  =  SYSTEM  NO.  FOR  EACH  COWPOMFNT  IN  THAT  PARTICULAR  SYSTF'’’ 
lU  =  0,  IF  IT  IS  A  SINGLY  VULNERABLE  COMPONENT 
lU  =  1»  IF  IT  IS  A  MULTPLY  VULNERAHlE  COMPONENT ( NOTE :  THIS 
WILL  NOT  ALLOW  THIS  COMP.  VA  TO  CONTRIBUTE  TO  THE  TOTAL  VA, 
NOR  TO  THE  SYSTEM  VA) 

THInFL  is  The  normal  THICKNESS  REPLACEMENT 
(USUALLY  TWICE  THF  WALL  THICKNESS  FOR  TUBES 
MODELLED  IN  INFLUENCE  MODE) 

READ  (IRD,1001,IOSTAT=IOS)  ICOMP ( 1 ) , m AT ( I ) , I FG ( I ) , I T AB ( I ) , 

’  IANA(I),TINIT(I),THINFL(I)»RHOF(I),IY(n , lU C T ) , NOPnTS ( 1) 

IF  (lOS  .EO.  0)  THFN 

TF  ((NOOMTS(I)  .LE.  0)  .OR.  (NOPNTSCI)  .RT.  10))  THEN 
WRITE  (IWRrlOlO)  I.NOPMTSIT) 

STOP 

ELSE  IF  (NOPNTS(T)  .GT.  «)  THEN 
RFAO  (IRn,1001,IOSTAT=lOS) 

END  IF 
ENO  IF 

IF  (inS  .GT.  0)  THEN 
WRITE  (IWR,1015)  I 

WRITE  (IWR, 1001,I0STAT=IOS)  ICOMP ( T ) , MAT ( I ) , I FG ( I ) , I T AR ( I ) , 
y  lANAdlf  TTMIT(I),THlNFL(I),RHnF(I),IY(n  ,Ili(I)  ,MnPNTS(I) 

STOP 

FLSF  IF  (ms  .LT.  0)  THEN 

WRITE  dWR, 1 020r TOSTATrinS)  I-l.NOCOMP 
NOCOMP  =1-1 
END  IE 
i*0  CONTINUE 

REWIND  dPD) 

00  «S  T  =  1,5 
READdRD,  1001  ) 

U5  continue 

00  50  I  =  l,MClCnMP 

read  (T»D,  loni,  lOSTATsinS)  lCOMPd),vifiTf  i),TE(;d)  ,TTABd)  , 
s  T  ANA  d  )  ,  T  IM  T  (  T  )  ,  THI  MEL  (I )  f  RHop  ( I )  ,  ]  Y  (  T  )  r  III  d  )  ,  M(1PN  I  S  ( I)  , 

■<;  (DEPTH(J,I),PKVAL(.I,T)rJ  =  IrNOPNTSd)) 

SO  CONTINUE 

read  TIME  BINS  for  SHOTLIMF.  max-TTmE  COUNTS 

(IF  NOT  included  in  input,  FLUX  TIw-f  POINTS  WRL  BF  ll.SFD) 
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READ  (IRD, 1000,END=80)  NTmax 

IF  (^^JT^iAX  .RE.  1)  .AMO,  (MfMAX  .LE.  IFX))  THEN 
read  (IRD,1002)  (TIMAX(I),I=l,NrMAX) 

WRITE  (IWM,1005)  (TIMAX(I),I=1,NTMAX) 

RETURN 

ELSE 

WRITF  (IWR,102)  NTMA^ 

WRITE  (1WR,1007) 

STOP 
END  IF 
ELSE 

WRTTF  (IWR,1007) 

STOP 
END  IF 


fcO  CONTINUE 

WRITE  (lWR,in06) 
RETURN 


100  FORNATC/SX, "***«*  INPUT  ERROR  *****  FLUX  ='',E10,2) 

101  FORMAT  (/5y » "Oik***  INPUT  ERROR  *****  IFVAX  s",IlO) 

102  R0RMAT(/5X»"*****  INPUT  ERROR  *****  NTMax  ="rI10) 


1000  FURNAT(I5,2E10.2) 

1001  FORMAT(I5,T3, lX,TlrI2,13X,tl,FS.0,32X,F3.2*7X,F3.2,2I2/ 

%  I5,PF7.a/t lF7.a) 

1002  FORMAT  (10F7.0) 

1005  format  (*  TIMAX  VALUES  =V(10F10.2)) 

lOOh  FORMAT  (*  NO  TTMAX  VAL'.'ES  'WERE  READ  IN  ...  FLUX  TIME  POINTS  \ 


% 


'WILL  RE  USED') 


1007  format 

1010  FORMAT 
S 
■fi 

1015  FORMAT 
% 

S 

1020  Format 


(»  array  DIMENSIONS  ARE  TOO  SM ALL . . . PROQR AM  HALTING') 

1 ' 1 ' »5Xf '*****  INPUT  ERROR  *****  AN  INVALID  NUMBER  ' 

'FOR  THE  VARIABLE  NOPNTS(I)  WAS  READ:' 

/28X,*I  =  'rl«,'  NOPNTS(I)  r  ',ia) 

(/5X, '*♦***  INPUT  error  *****  ERROR  OCCURRED  DURING 

'PEAO  of  COMPONENT  CARD  IN  THE  SEOl'ENCE'/ 

2RX,'THE  FOLLOWING  VALUES  WERE  READ:') 

(/5X, ******  INPUT  ERROR  *****  END  OF  FILE  OCCURRED  ' 


S  'after  ',ia,'  CARDS  WERE  READ,' 

%  /PflX, 'ALTHOUGH  NOCOMP  r  ',14) 

2000  FORMAT!'  NUMBER  OF  COmpomenTS  =',I5,5x, 

i,  '  IRVRS  =',  15, 5X, 'FACTOR  Ff|R  CONVERSION  TO  TMCHFS  =',F10.q) 

2001  FORMAT  (/'  MjMpEP  OF  POINTS  IN  FLUX  D I S T R t BU T 1 0, i  =',I5// 

H  '  BEGIN  TT*'E',BX, 'END  T  ImF  ' ,  7  X  ,  '  FLUX  ' ) 

2002  FORMAT  ( 1 X , F 1 0 . 2 , 5 X , F I  0 , 2 , 3X , F 1 0 . ? ) 


FiV'D 
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SDPROIJTINF  REVRSF(J) 

routine  to  reverse  the  order  of  components  along  a  SHOTLINE 

FOR  THE  L  V  A  C  PROGRAMS 

common  I  comp (500) ,MAr(500),IFR(500),lTAB(500),IANA(500), 

$  TIN  IT  (500)  .  NOPNTS(  500  ),  DEPTH  ( 10,500)  ,PKVAl.  (10,500), 

%  RHOF (500) , IRVRS, TU(500) , lY (500) 

common  THTNFL(500) ,SH(?, 170) , JH(5, 170) ,CTNCH 
COMMON  /TWO/  XLOS(10O),JHT(100),NENC,OBiai00) 

y-position  of  shotline  must  change  sign  in  OPDFR 

TO  maintain  a  right-handed  COORDINATE  SYSTEM 

SH(1,J)  =  -SH(1,J) 

DO  30  N  =  l,NENC/2 
JJ  =  NENC  -  N  ♦  1 
J1  =  JHT(N) 

51  =  ORQ(N) 

52  =  XLOS(N) 

JMT(N)  s  JHT(JJ) 

OBO(N)  r  OBO(JJ) 

XLOS(N)  =  XLOS(JJ) 

.JHT(JJ)  =  J1 
OBO(JJ)  =  SI 
XLOS(JJ)  =  S2 

30  CONTINUE 

return 

END 
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surroutimf  tari.e 

COlwiMON  TCnMP(500)  ,MAT(5OO)»IFG(R0O),ITA8(SO0),IANA(50  0), 

$  TIMIT (500) ,NnPNTS(S00) , depth f 10, SOO) , PK V AL (  1  0 , 500  )  , 

*  RHOFCSOO)  ,  IRVHS,Tll(500),IY(500) 

COMMON  THINFL(500) ,SH(2, 170) , JH(5, 170) ,0  INCH 
COMMON  /ONE/  NnC0MP,FLX»IFLAR,PEAKF,NCRIT 

common  /prop/  ALP,RHO,CPrTMLT,XLAM8D,RATF, JCOMP, J,DP,XK,TVAP, 
$  CPLflTERrT 

COMMON  /l.UNITS/  IRO,  IWP,  IIN,  lODT 

THIS  routine  RFTURPJS  A  PENETRATION  PATE  USING  A 
TABULAR  VALUE  RASED  ON  THE  MATERIAL  TYPE. 

IF  (ITAB(J)  .EO.  1)  THEN 

PLEXIGLASS 

RATE  =  a.35E-10  ★  FLX  *  O.R 
ELSE  IF  (ITAR(J)  .EQ.  ?)  THEN 

triplex  DIELECTRIC 

rate  =  2.6fl22E-l0  *  FLX  *  0,9 
ELSE  IF  (ITAB(J)  .EO.  3)  THEN 

FI8RITE 

RATE  =  2.633E-10  *  FLX  *  O.P 
ELSE  IF  (ITAR(J)  .FQ,  a)  THEN 

RUBBER 

RATE  =  2.fe909E-10  ★  FLX  *  0.9 
ELSE  IF  (ITAR(J)  .EQ.  5)  THEM 

GLASS 

RATE  =  .35E-10  *  FLX  *  O.o 
ELSE  IF  (ITAB(J)  .FQ.  A)  THEN 

FIBER  GLASS 

rate  =  .«aF-10  *  FLX  •  0.9 
PLSE  IF  (ITAR(J)  .FQ.  7)  THEM 

PYROCERAm 

3.79F+6  FI  X  equals  379  W/CM-2,  SINCE  FLX  IS  IN  ‘-^FIEPS 
IF  FLX  IS  less  than  3.70F  +  f'r  RFTURM  a  i^aTF  OF  ZFRO 
C 

IF  (FLX  .GT.  3.74Ef6)  TmEN' 
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PATE  =  +  3.7aE-ll  *  FLX  *  0.9 

ELSE 

WRITE  (IWR,2000)  . 

STOP 
END  IF 

ELSE  IF  (ITAR(J)  .EO.  fl)  THEN 

GLASS  FIBER  EPOXY 

RATE  =  O.SSSE-IO  *  FLX  *  0.9 
ELSE  IF  (ITAR(J)  .EQ.  9)  THEN 

graphite  EPOXY 

RATE  =  0.119E-10  *  FLX  *  0.9 
ELSE 

RATE  =  0.0 

WRITE(I;--R,  1000)  JcnMP,ITAR(J) 

END  IF 

RETURN 

1000  FORVATt'  THIS  COMPONENT  DOES  NOT  FTT  THE  HOUNDS  FOR  TABLES', 
2000  FOPyAT('  THE  FLUX  IS  INDICATED  TO  RE  LESS  THAN  37«  W/CM**2'/ 
i  'OCHECK  SUBROUTINE  T ABLE ...  PROGRAM  HALTING') 

end 
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SUBROUTINE  ASPTOIND 


This  subroutine  is  used  to  correlate  each  of  the  standard  26  viewing 
angles  used  by  programs  like  FASTGEN  with  an  index  used  by  the  program  ASALT. 
Each  of  the  standard  azimuth-elevation  angle  pairs  has  a  correspondence  to 
one  of  26  ASALT  indices.  The  subroutine  is  called  by  the  main  program. 


The  first  set  of  statements 


SllflOOIITINE  »SPTniN0(4Z,FL.  ILOdK) 

1N1EGEK  42I« 

INTEGEP  ELIX 

is  used  to  pass  three  arguments,  AZ,  EL,  and  ILOOK,  and  to  declare  AZIX  and 
ELIX  to  be  integers.  AZ  and  EL  are  the  FASTGEN  azimuth  and  elevation  angles 
and  ILOOK  is  the  corresponding  ASALT  index. 

The  next  statements 


IF  (JOStEL-oo.)  .LE.  l.E-flS)  then 
ILCIOK  =  26 

ELSE  IF  (iFSIEL  +  'JO.)  .lE.  l.E-05)  Then 
ILQOK  s  1 


test  for  a  top  or  bottom  view.  The  block  IF  first  checks  for  an  elevation 
angle  of  90  degrees,  implying  a  top  view.  If  this  angle  is  found,  the  ASALT 
index  is  set  to  26.  Otheirwise,  a  check  for  a  bottom  view  with  an  elevation 
angle  of  -90  is  made.  If  this  test  is  successful,  the  ASALT  index  is  set  to 
1;  otherwise,  the  block  IF  continues  with  the  ELSE  branch  where  checks  are 
made  for  the  other  2A  viewing  angles. 

The  statements 


ELSF 

ELIX  r  0 
CHk  =  -US. 
pn  10  I  =  1,3 

IF  (4RS(EL-CHX)  .GT.  l.F-OS)  THEN 
CHK  s  chk  ♦  US. 

ELIX  s  ELI*  +  s 
ENU  IF 
10  CONTINUE 


check  for  a  standard  elevation  and  set  an  elevation  index  accordingly.  The 
first  two  assignment  statements  initialize  the  angle  to  be  checked  and  the 
elevation  index.  The  DO  loop  checks  for  the  remaining  three  valid  elevation 
angles.  If  the  elevation  angle  and  the  checking  angle  are  not  equal  within 
roundoff  limits,  the  checking  angle,  CHK,  is  incremented  by  45  degrees  and 
the  elevation  index,  ELIX,  is  incremented  by  8. 

The  following  statements 

IF  (CHK  .lt.  so.j  then 
chk  *  0.0 

IF  (»E  .lt.  IRO.)  THEN 
A7IX  s  6 
ELSE 

»ZIX  s  2 

*  42  -  ISO. 

ENO  IF 


1 


ENCLOSURE  (2) 


are  used  in  preparation  for  determining  the  azimuth  angle.  The  first  IF 
statement  checks  to  determine  if  a  standard  elevation  angle  was  found.  If 
not,  the  ELSE  branch  of  the  block  IF  is  executed.  Otherwise,  the  THEN 
branch  sets  the  azimuth  checking  angle  to  0.0.  The  second  IF  statement 
determines  whether  the  azimuth  in  question  is  less  than  180  degrees.  If  so, 
the  azimuth  index  is  set  to  2  and  the  azimuth  is  adjusted  so  as  to  be  less 
than  180  degrees. 

The  statements 

00  30  I  s  1,11 

IF  (ABSCIZ'CHK)  .GT.  l.E-OS)  THEN 
CMK  =  chk  ♦  as. 

AZIX  s  AZIX  ♦  1 

end  if 
30  continue 

form  a  DO  loop  to  check  for  a  standard  azimuth  angle.  The  statements  in  the 
IF  block  are  executed  when  the  azimuth  value  does  not  equal  the  checking 
angle  within  roundoff  limits.  In  this  case,  the  checking  angle  is  incremented 
by  45  degrees  and  the  azimuth  index  is  incremented. 

The  next  statements 

IF  (CHK  .LT.  lao)  THEN 
ILOOK  3  ELIX  ♦  AZIX 
ELSE 

WRITE  (6,901)  AZ,  EL 
END  IF 

/ 

form  a  block  IF  to  take  the  appropriate  action  depending  on  whether  a 
standard  azimuth  is  present.  If  a  standard  azimuth  is  found,  the  THEN  branch 
is  executed  and  the  ASALT  index  is  the  sum  of  the  elevation  and  azimuth 
indices.  If  not,  an  error  message  is  printed. 

The  statements 

”  ELSE 

WHITE  (6,901)  AZ,  EL 
FNO  IF 
END  IF 

are  executed  when  a  standard  elevation  is  not  found.  The  l^ITE  statement 
prints  an  error  message.  The  two  END  IF  sta’^ements  close  the  IF  block  for 
determining  whether  a  valid  elevation  is  found  and  for  ascertaining  whether 
a  top,  bottom,  or  other  view  is  present. 

The  statements 

9ETURN  ,  . 

901  FOBMAT  ('  •••  ERROR  cannot  CLASSIFY  LOOKANCLES  AZ,  EL  / 

S  lSx,ZFin.2) 

END 

return  control  to  the  calling  program,  define  the  error  message  format,  and 
end  the  subroutine. 


SUBROUTINE  FINDCOMP 


This  subroutine  is  used  to  search  an  array  containing  critical  component 
numbers  for  a  specific  component.  If  the  number  is  found,  the  array  element 
index  is  returned.  If  not,  a  zero  is  returned.  This  subroutine  is  called  by 
the  Subroutine  GETXTZ. 

The  first  set  of  statements 

$IISB011TINE  Fr«ipCt)“P(  IBT,  IC.MCOIT) 

oi»E*sio«i  icn^pfioo) 

IPT  >  0 
1  :  0 

is  used  to  pass  four  arguments,  IPT,  ICOMP,  IC,  and  NCRIT.  IPT  is  the  element 
of  the  array  containing  the  desired  component  number  or  zero  if  the  component 
is  not  in  the  array.  ICOMP  is  the  array  containing  critical  component 
numbers.  1C  is  the  component  number  being  sought  and  NCRIT  is  the  number  of 
critical  components  in  ICOMP.  The  DIMENSION  statement  declares  ICOMP  to  be  an 
array.  The  two  assignment  statements  initialize  the  returned  element  number 
and  a  search  index  to  zero. 

The  statements 

100  continue 

1  *  1  ♦  I 

If  (tcowo(l)  .EO.  Id  IPT  =  I 
IP  ((I  .NE.  IPT)  .AND.  (I  .LT.  NCPIT))  GO  TO  100 
PETUPN 
ENO 

search  the  ICOMP  array  for  the  desired  component  number  and  return  control  to 
the  calling  subroutine  when  the  search  is  completed.  The  first  four  state¬ 
ments  form  a  "REPEAT  UNTIL"  loop.  Statement  100  forms  the  beginning  of  the 
loop.  The  assignment  statement  increments  the  index  of  the  component  array. 
The  IF  statement  checks  if  the  current  element  in  the  array  matches  the 
sought  after  component.  If  so,  IPT  is  set  to  the  index  of  the  current 
element.  The  conditional  GO  TO  statement  checks  whether  the  desired  compo-' 
nent  has  been  found  and  whether  the  array  has  been  completely  searched.  If 
both  of  these  conditions  are  false,  a  branch  is  made  to  examine  the  next 
element.  If  either  condition  is  true,  control  returns  to  the  calling 
program  unit. 


SUBROUTINE  GETXYZ 


This  subroutine  is  used  to  compute  the  locations  of  critical  compo¬ 
nents  in  the  ASALT  aircraft  coordinate  system.  It  obtains  these  coor¬ 
dinates  by  averaging  the  shot  line  coordinates  that  intersect  the  compo¬ 
nents  from  the  front,  side,  and  bottom  views.  This  subroutine  is  called 
by  the  main  program. 

The  statements 

'  ^JBBOIITTNE  GETtrZC  ICQMP.CnMP.NCBIT.NAME) 

'  CM4B4CTEB**  NtuE(lOO) 

dimension  icoMM(ioo).coMp{j,too) 

DIMENSION  SH(J,  17(1),  JM(S.  170).  AZV(J).ELV{J) 

DIMENSION  «tlOO),Y(100).ZUOO) 

DIMENSION  N)((100).NT(100),NZ(100) 

0*74  4ZV  /O.O.BO.O.OO.O/,  EL»  /O .0 . 0 . 0 , -«0 . 0 / 

DATA  X  /t00»0.0/,  Y  /100*0.0/,  Z  /100»0.0/' 

DATA  NX  /100*0/,  NY  /100«0/,  NZ  /J00»0/ 

are  used  to  pass  four  arguments,  ICOMP,  COMP,  NCRIT,  and  NAME,  to  declare 
array  dimensions,  and  to  set  initial  values.  ICOMP  is  the  array  containing 
critical  component  numbers.  COMP  is  an  array  to  hold  the  ASALT  aircraft 
coordinates  of  the  critical  components.  NCRIT  is  the  number  of  critical 
components.  NAME  is  an  array  used  to  hold  the  names  of  the  critical  compo¬ 
nents.  SH  contains  the  shotline  y-  and  z-coordinates  that  intersect  the 
components.  JH  holds  the  component  numbers  or  a  flag  indicating  the  end  of 
the  view.  AZV  and  ELV  indicate  the  azimuth  and  elevations  used  to  define 
the  three  views:  front,  side,  and  bottom.  X,  Y,  and  Z  are  the  ASALT  air¬ 
craft  coordinates  for  each  critical  component.  NX,  NY,  and  NZ  count  the 
number  of  times  that  each  component  is  described  using  x-,  y-,  or  z-coor¬ 
dinates  (only  two  of  the  three  coordinates  are  used  in  each  viewing  plane). 

The  statements 

DO  150  ILOS  3  1.3 
READ  (ILOS)  A7,  EL 

IE  (CAZ  .EQ.  AZVCILOS))  .AND.  (EL  .ED.  ELV(ILOS)))  THEN 

are  used  to  obtain  line  of  sight  data  for  the  three  viewing  planes.  The  DO 
loop  is  used  to  read  the  data  from  each  plane  and  to  start  the  conversion 
of  the  coordinates  to  the  ASALT  aircraft  system.  The  READ  statement  is  used 
to  get  the  azimuth  and  elevation  for  the  current  view  plane.  The  IF  state¬ 
ment  determines  if  the  current  view  plane  is  the  standard  plane  that  the 
program  expects.  If  so,  the  THEN  branch  of  the  IF  block  is  executed;  other¬ 
wise  the  ELSE  branch  is  executed. 

The  statements 

20  READ  ("ILOS,  Ewn*I50)  (OUM.  {Sh(  I ,  J  )  ,  Is  1 . 2)  ,  ( JM  ( I ,  J ) ,  I  =  1 , 5)  . 

S  jsl.170) 

DO  100  J  •  1.170 

IE  (JH(2.J)  .EO.  0)  GO  TO  150 
SY  s  SHd.J) 

SZ  s  SH(2.J) 

IC  s  JH(2,J) 

call  EINOC0mp( IPT. ICOMP. ic.NCRIT) 

are  used  to  read  the  line  of  sight  data  and  to  set  up  for  the  conversion  of 
coordinates.  The  READ  statement  forms  the  first  statement  in  a  "REPEAT 


4 


UNTIL"  loop.  The  READ  obtains  a  block,  of  data  at  a  time.  The  loop  will 
continue  executing  until  all  the  shot  line  data  for  the  view  have  been 
processed.  The  DO  loop  is  used  to  convert  the  shot  line  coordinates  from 
the  data  block  obtained  by  the  READ  statement.  The  IF  statement  determines 
if  the  end  of  the  view  has  been  reached.  If  so,  a  branch  to  Statement  150 
is  made  to  permit  the  processing  of  any  other  views.  This  is  the  exit  from 
the  "REPEAT  UNTIL"  loop.  The  next  three  assignment  statements  get  the 
shotline  y-coordinate,  z-coordinate,  and  component  number.  The  CALL  state¬ 
ment  returns  the  index  of  the  ICOMP  array  containing  the  component  if  the 
component  is  critical  or  a  zero  if  the  component  is  noncritical. 


The  statements 

IF  (IPT  .NE.  0)  THEN 
IF  (ILOS  .EQ.  tl  then 
Y(IPT)  *  TdPT)  ♦  St 
NY(IPT)  »  NYtIPT)  ♦  1 
Z(IPT)  a  ZtlPTI  ♦  3Z 
NZ(IPT)  a  NZ(IPT)  ♦  1 
ELSE  IF  (ILOS  .EO.  2)  THEN 
X(IPT)  a  XdPT)  -  SY 
NXCIPT)  a  NXCIPT)  ♦  1 
ZCIPT)  a  ZdPTJ  ♦  32 
NZdPT)  a  NZCIPT)  ♦  1 
ELSE 

XCIPT)  a  XdPT)  -  SY 
NXdPT)  a  NXdPT)  ♦  1 
YdPT)  a  YCIPT)  ♦  SZ 
NYdPT)  a  NYdPT)  ♦  1 
END  IF 
END  IF 

too  continue 

GO  TO  20 

are  used  to  convert  the  shot  line  coordinates  for  critical  components.  The 
first  IF  block  is  executed  only  when  a  critical  component  is  encountered. 

This  block  contains  another  IF  block  whose  branches  are  executed  depending 
upon  whether  the  front,  side,  or  bottom  view  is  being  processed.  In  each 
case,  the  shot  line  coordinates  are  added  to  or  subtracted  from  the  appro¬ 
priate  aircraft  coordinates  and  a  count  for  each  addition/subtraction  is  kept. 
Statement  100  following  the  two  IF  blocks  ends  the  DO  loop  which  processes 
the  shot  line  data  block.  The  GO  TO  statement  forms  the  end  of  the  "REPEAT 
UNTIL"  loop. 

The  following  statements 


NPITE  (*.U)  ILOS. »Z. EL 
STOP 
END  IF 

ISO  continue 


are  the  remaining  statements  in  the  viewing  plane  processing  loop.  The  ELSE 
statement  begins  the  branch  of  the  block  IF  that  is  executed  when  a  standard 
viewing  plane  is  not  found.  The  WRITE  statement  prints  an  error  message  and 
the  STOP  statement  terminates  the  program.  The  END  IF  statement  closes  the 
IF  block  and  Statement  150  concludes  the  view  plane  processing  loop. 


The  next  statements 


HPITE  (6.J01)  NCPIT 
00  JOO  I  *  t.NCPIT 


IF 

(NX(I) 

.NE. 

0) 

COvPd  .1) 

s  xri) 

/ 

FunxTtNXd)  ) 

»  0.025a 

IF 

(NYCn 

.NE. 

0) 

C0MP(2,U 

*  Yd) 

/ 

FLOAT(NYtl) ) 

•  0.0250 

IF 

(NZ(I) 

.NE. 

0) 

cn-Pd.i) 

»  Zd) 

/ 

FLOATCNZd)) 

•  0.0250 

WRITE  (6,30?)  I,N4MII(n,ICOHP(l).COMP(|,I),N>(I),  CnMP(2,I), 

s  NY(i).cnMP(s.n.NZ(i) 

300  COKTINUE 

are  used  to  complete  the  calculation  of  the  ASALT  aircraft  coordinates  and 
to  print  these  values  out.  The  first  WRITE  statement  prints  the  page 
header.  The  DO  loop  is  used  to  calculate  the  average  ASALT  aircraft  coor¬ 
dinates  for  each  critical  component  and  send  these  values  to  the  output 
device.  The  three  IF  statements  find  the  average  x-,  y-,  and  z-coordinate 
in  meters.  The  next  WRITE  statement  prints  the  coordinate  values.  State¬ 
ment  300  closes  the  DO  loop. 


The  final  set  of  statements 


return 

II  FORMAT  (•  ••»ERR0R«»*  incorrect  LOS  FILE  FOR  VIEW”, 13, 

S  •  AZ=',FS.I,*  EL*',F8.1) 

301  FORMAT  (•|•,^^X,'  — *,13,'  critical  COMPONENT  LOCATIONS  — V 

1  "0  ♦  ♦  ♦  COMPONENT  ♦  ♦  ♦•/ 

I  *  INDEX  NAME  number*, 6X, *X-C0OR0,  SAMPLE', 

s  6X,*T-coaRo.  Sample*, 6X, 'z-cooRo.  sample*) 

302  FORMAT  (1X,I«,3X,AA,I6,IX,3(F12.2,I7,2x)) 

ENO 


returns  control  to  the  calling  program  and  provides  the  formats  for  the 
messages  that  are  output. 


SUBROUTINE  NAMES 


This  subroutine  is  used  to  read  names  of  components  from  an  input  file. 
If  the  input  file  is  empty,  blanks  are  entered  for  the  names.  The  subroutine 
is  called  by  the  main  program. 

The  first  statements 

!«IIRI)0>>TINE  MtMaS(NtHEiNCRir) 

CM40iCTE>»»«  N*“r(100) 

are  used  to  pass  two  arguments,  NAME  and  NCRIT.  NAME  is  an  array  to  hold  the 
names  of  the  critical  components  and  NCRIT  is  the  number  of  critical  compo¬ 
nents.  NAME  is  declared  to  be  an  array  of  character  strings  of  length  8. 

The  statements 

BEto  (7. t?o.E*<r)3iaa)  (m^mecd.isi.ncbit) 
betiirn 


attempt  to  read  the  names  of  the  critical  components  from  an  input  file.  If 
the  read  completes  successfully,  control  is  returned  to  the  calling  program. 
If  an  end  of  file  is  encountered,  the  execution  branches  to  Statement  100. 


The  next  statements 


too  on  110  I  »  l.''C»TT 
NABFd)  »  ' 
no  COMTIXUE 

PETIIRN 

120  F09B/1T  (**) 

END 


are  used  when  an  end  of  file  occurs.  The  DO  loop  is  executed  to  initialize 
the  component  names  to  a  string  of  blanks.  Control  is  then  returned  to  the 
calling  program. 


PROGRAM  VAMERGE 


This  program  is  used  to  produce  one  of  the  two  input  files  required 
by  the  ASALT-I  Model  in  assessing  survivability  against  laser  threats. 

This  program  reads  the  vulnerable  area  files  created  by  the  QKLOOK  program 
PEAKAY,  averages  the  component  Pk’s,  and  prints  them  in  the  ASALT  input 
format. 


The  first  set  of  statements 

VkxERGE 

P»B*HETE»  (TDElT  *  O.S.  IPUlNT  »  2,  LINLIM  *  fcO, 

S  KFB  S  0.0,  YFP  :  0.0,  XG  :  0.0,  YG  =  0.0, 

S  ZG  =  0.0,  PSt  =  0.0,  MATN  =  t,  YJITTR  =  t.O, 

S  ZJITTR  =  1.0,  SLEW4Z  s  90.0,  SLEwEL  s  “S.O, 

t  TRKTIM  s  Q.O,  FtTEM  s  1.0,  RMTEM  =  l.E*i0, 

S  MAIMPT  9  1) 

OIMFNSION  FTIM(25),  FXCMiaS),  TIMES(IO),  ENERGY(IO) 

OImENSIOM  FTIA«2(2S),  FXCM2(25),  TIMESZdO),  GUMS) 

OIxENSION  ICOHP(IOO),  PAREA(IOO),  COMPAVl 100, 10) 

OIPFNRION  C>)HP(S,100),  AP(100,26),  WIDTH!  100,26) ,  PKtl0,100) 

CHARACTER*!)  NAME  (  1  00  )  ,  HLANK 
CHARACTER*a  Y0RWC2) 

is  used  to  assign  constant  values  to  a  number  of  parameters  used  in  the 
ASALT  input  file,  to  declare  array  dimensions,  and  to  declare  character 
variables. 


The  statements 


DATA  TORN  /’SO  ‘YES  '/ 

DATA  OLAHR  /•  •/ 

DATA  t0UT,IR0.IWR,IIN  /«, 5,6,11/ 

DATA  AP  /2600*-1.0/,  PK/1000*0.0/ 

DATA  ENERGY  /10*0.0/  • 

DATA  COMP  /S00*0.0/ 

DATA  GUN  /S*0.0/ 

are  DATA  statements  which  are  used  to  initialize  the  variables  whose  names 
appear  in  the  DATA  statement  lists.  The  first  three  DATA  statements  set  the 
array  YORN  which  is  used  to  indicate  whether  the  reverse  flag  is  set,  assign  a 
string  of  blank  characters  to  the  variable  BLANK,  and  set  logical  unit 
numbers  used  in  the  FORTRAN  I/O  operations.  The  next  three  DATA  statements' 
initialize  arrays  used  to  hold  presented  areas,  Pk's,  energy  flux,  and 
component  coordinates.  The  final  DATA  statement  sets  the  coordinates  of 
the  weapon  location  in  the  General  Coordinate  System. 

The  statements 

WRITE  (10UT,103)  T0ELT,IPRINT,u1NLI" 

WRITE  (I0UT,102)  GUN,XFP,YFP,XC.YC,ZG,PSI 

produce  the  first  two  ASALT  cards.  The  first  card  contains  TDELT  which  is 
the  time  interval  between  iterations  of  ASALT 's  computations,  and  IPRINT  and 
LINLIM  which  establish  the  line  printer  output  from  ASALT.  The  second  card 
holds  the  coordinates  for  the  weapon  location  and  the  coordinates  for  the 
coordinate  system's  reference  point. 

The  statements 
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READ  (IRO.lOn  NCRIT 

HEAD  (IIN.ENO»-»00)  A2,El..TFMAK,{FTIM(I),F!tCMtI),I  =  l.IFMA)i),RVRS, 
S  NOCOMP, NT  IMF, (TIMES(I).lsl,NTIME) 

IRVRS  s  RVRS  *  I. 

WRITE  (Iv»R,Un  (IIN-10),A2, EL, TORN(IRVRS). NOCOMP, NCRIT, 

%  (FTlMm,FXCM(n,I»l,IFM4X) 

WRITE  (IWR,U2)  (TIMES(I),I»t,NTlME) 


read  information  on  the  first  vulnerable  area  file  and  echo  it  on  the  line 
printer.  The  first  READ  statement  ascertains  the  number  of  critical  compo¬ 
nents  in  the  QKLOOK  files.  The  next  READ  statement  is  used  to  obtain  a 
viewing  plane  description,  the  flux  distribution  with  time  intervals,  the 
reverse  flag,  the  number  of  components,  and  the  number  and  breakdown  of  time 
intervals  used  in  the  computation  of  vulnerable  areas.  The  two  WRITE 
statements  send  this  information  to  the  printer  file. 


The  statements 


WRITE  (I0UT,101)  IFMAX.NATN 

WRITE  CIQUT.loal  (FXCM(IJ,I=t,tFMAX) 

FTIMtlFMAX)  s  I.E+30 

WRITE  (I0UT,I02)  (FTIM(I),I=1,IFMAX) 

WRITE  (I0UT,102)  YJITTR.ZJITTR 

WRITE  (I0UT,102)  SLEwA2,SLEWEL,TRKTIM 

WRITE  <IOUT.I02)  ATTEM 

WRITE  (IOUT,102)  RATTEN 

WRITE  tIOUT,102) 

WRITE  (lOUT.lOl)  NCRIT,NAImPT 


are  used  to  write  the  laser  flux  emission  rates  for  ASALT  Cards  3  through 
11.  Card  3  contains  the  number  of  elements  in  the  laser  flux  emission  array 
and  the  number  of  elements  in  the  atmospheric  attenuation  factor  array. 

Cards  4  and  5  contain,  respectively,  the  laser  flux  emission  rates  and  their 
corresponding  times.  Card  6  has  the  standard  deviation  due  to  jitter  of  the 
laser  beam  in  the  Y  and  Z  direction.  Card  7  holds  the  maximum  azimuth  and 
elevation  slewing  rate  for  the  laser  weapon  as  well  as  the  minimum  tracking 
time  required  before  the  laser  can  fire.  Cards  8  and  9  contain,  respectively, 
the  laser  beam  attenuation  factor  and  the  beam  atmospheric  attenuation  factor 
range  argument.  Card  10  provides  the  smoke  corridor  end  points.  However,  no 
smoke  corridor  is  used  in  this  program,  so  Card  10  is  left  blank.  Card  11 
has  the  number  of  components  in  the  target  model  as  well  as  the  number  of  aim 
points  on  the  target. 


The  statements 


IS 


ENERCrd)  ■  0.0 
IF  (NTIME  .LT.  10)  THEN 
LIM  «  NTIME 
ELSE 

LIM  «  9 
ENO  IF 

00  20  I  ■  1,LIM 
T1  >  0.0 
FLUX  *  0.0 
J  s  0 

continue 

j  *  j  «  1 

IF  (FTI»IJ)  .LT.  TI**f.^(I))  Then 
OELT  s  FII«(J1  -  T1 
FLU*  •  'LUX  ♦  {F»C“(J)  •  OFlT) 

T  1  *  FT  I><(  J  ) 

IF^((J*.LT.  IFXAX)  .ANU.  (FTI«(J)  .LT. 


TIMFS(I))'  0"  rn  IS 


9 


OELT  s  TI-FStl)  .  n 

FLU*  s  FLU*  ♦  (FxCM(J)  *  OELT) 

ENEBGrCI  +  n  s  FLUX  •  0.001 
20  COMTIMiE 

WHITE  tIOUT.1021  (e'TfRGT(l).1=l.Ll***l) 

are  used  to  calculate  the  amount  of  energy  accumulated  to  cause  kill 
probabilities  for  each  component  during  a  specified  time  interval.  These 
results  are  used  for  ASALT  Card  12.  At  time  0,  no  energy  has  accumulated, 
so  the  first  energy  argument  is  set  to  0.0.  Since  ASALT  uses  exactly  10 
energy  entries  in  a  function  defining  Pk  at  increasing  energy  levels,  and 
since  the  first  energy  level  is  always  set  to  0.0,  LIM,  the  number  of 
energy  levels  to  calculate  from  PEAKAY,  is  limited  to  a  maximum  of  9.  The 
DO  loop  finds  the  energy  levels  for  the  times  specified  in  the  TIMES  array. 
For  each  cycle  through  this  loop,  the  first  three  assignment  statements 
reset  the  previous  time  argument  Tl,  the  accumulated  energy  FLUX,  and  the 
flux  array  subscript  J  to  0.  Statement  15  through  the  conditional  GO  TCX 
statement  form  a  "REPEAT  UNTIL"  block  and  is  used  to  accumulate  the  energy 
from  the  flux  distribution  table  until  the  flux  level  for  the  time  of 
interest  is  reached.  The  amount  of  energy  received  at  this  level  before 
the  desired  time  is  reached  is  then  added  to  the  previously  accumulated 
energy  flux.  The  energy  leve^  is  then  set  to  this  flux  value  after  it  has 
been  converted  from  joules/cm  to  kilojoules /cm^.  After  all  the  energy 
arguments  have  been  calculated,  they  are  written  to  the  output  file. 

The  statements 

C*LL  '<A»'eS(N«ME,NCHIT) 

00  2S0  IIN  X  11, 3A 

are  used  to  read  the  names  of  the  critical  components  and  to  initiate  a  DO 
loop  to  iterate  through  vulnerable  area  files  for  the  standard  26  different 
aspects. 


The  statements 


IF  (IIN  .NE.  ID  then 

REAOdIN.FNOsHOO’  »Z,eL,IFM*X2,(FTl»2(I),FXCM2Cn,I*l,IF><»X2), 
S  PVRS,NnC0F'P2,NTiME2,(TIWES2(  I)  ,  1*1  .NIIME2) 

I^V^S  s  RVRd  ^  !• 

WHITE  (IWH.ni)  niN-10),*Z,EL.YOHN(IRVHS).NOCOKP2,NCHIT, 

S  (FTIwZin  ,FXCW2(IJ  ,Isl,IFM»x2) 

WHITE  (IwH,I12)  (TI«ES2(I),I»1,NTIME2) 

FTIW2(IF«<4x2)  3  1.E*30 

IF  ((IFPAX2  .NE.  IFMAX  )  .OH.  (NOC0MP2  .NE.  NOCOPP) 

S  .OH.  (NTIPE2  .NE.  NTIME))  GO  TO  050 

00  100  I  3  l.IFPtX 

IF  ((FTIPZm  .NE.  FTIM(I))  .OH.  (-XC"2Cn  .NE.  FXCM(I))) 

$  GO  TO  050 

lOO  CONTINUE 

00  320  I  3  1, NTIME 

IF  (TIMES2(n  .NE.  TIMESID)  GO  TO  050 

320  continue 

end  if 


form  an  IF  block  which  is  executed  for  every  aspect  angle  except  for  the 
first  one.  This  block  reads  in  the  azimuth,  elevation,  flux  distribution 
table,  reverse  flag,  number  of  components,  and  times  of  interest  for  the 
next  aspect  angle.  The  block  then  checks  the  number  of  components,  the 
flux  distribution  table,  and  the  times  of  interest  to  insure  that  these 
values  are  Identical  to  those  for  the  first  aspect  angle.  If  any  differ- 
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ence  is  found,  a  GO  TO  statement  branches  to  Statement  950  to  write  an 
error  message. 


The  statements 


C*LL  ASPT0IND(4;,EL>lL0nK) 

DO  200  J  S  l.NCOIT 

HEAD  (liM.ENOsOOO)  ICOMP ( J) ,PAB£A t J) , (COmPAV ( J, K ) ,Ksl , NTIME) 
IF  (NAMEtJ)  .EO.  BLANK) 

S  WRITE  (NAME(J),19S)  ICOWP(J) 

WRITE  (IWR.llB)  J.NAPE(J).ICOMP(J),PAREA(J),(CORPAV(J,K), 

S  K  ■  t.NTIME) 

200  continue 


are  used  to  convert  the  look  angles  to  an  ASALT  index  and  to  read  the 
presented  and  vulnerable  areas  for  each  critical  component.  The  CALL 
statement  obtains  the  ASALT  index  associated  with  each  of  the  26  views. 
The  DO  loop  reads  the  presented  and  vulnerable  areas  for  each  critical 
component,  assigns  the  component's  number  to  the  name  array  when  the 
component's  name  is  not  already  in  the  array,  and  writes  this  information 
out.  The  component  name  information  is  used  in  preparing  Card  13  for  the 
ASALT  program. 


The  statements 


on  2ao  J  s  l.NCRIT 

APfJ.ILOOK)  s  PAREA(J)  «  0.OR2PO3OU 
wIOTmIJ.ILDOK)  s  SQRT(AP(J,IL00K)) 

PK(I,J)  s  0.0 

IF  (PAREA(J)  .GT.  l.E-00)  THEN 
00  230  I  «  2, LIN 

PK(I,J)  a  PK(I,J)  ♦  C0NPA»(J,I-n  /  PAREAtJ) 
230  CONTINUE 

ENO  IF 

200  continue 
250  continue 


are  used  to  prepare  ASALT  Cards  14  and  15.  The  outer  DO  loop  iterates  for 
every  critical  component  for  each  look  angle.  The  first  assignment  state¬ 
ment  converts  the  presented  area  from  square  feet  to  square  meters.  The 
next  assignment  statement  assumes  that  the  presented  area  is  square  and 
calculates  the  width  in  meters.  The  third  assignment  statement  states  that' 
the  probability  of  kill  at  time  zero  when  no  energy  has  accumulated  is  zero. 
The  IF  statement  checks  whether  the  presented  area  for  the  current  component 
is  zero.  If  not,  the  DO  loop  in  the  IF  block  sums  the  Pk's  for  each  component 
for  all  views.  Statement  250  closes  the  loop  that  iterates  through  the  26 
aspect  angles. 

The  statements 

aOO  on  aio  J  s  2,L  I« 

nn  <105  I  S  l.NCRIT 

FKCJ.t)  I  PKU.I)  /  2h.O 

«05  CONTINUE 

«10  CO.'iTINuF 

form  two  nested  DO  loops  which  average  the  Pk's  for  each  component  from 
all  26  views  for  each  time  of  Interest. 

The  statements 

call  C-FTKYI  tICONB.CONF.NCOIT.NA-ei 
.-.RITE  (InR.lPl) 


CO  <150  I  a  l.HCOIT 

WRITE  (imiT.lua)  NAWEdJ.ICOMPtJ.D.Jsl.S) 

WHITE  CIOUT.IOZI  (»B(l,J),wlpTH(t.JT.J  =  ».2*>> 

WHITE  (IOIIT,I02)  (PK(J,I).J  =  I»10) 

WHITE  (IwH,I2?)  I ,HAME ( I ) . ICOMPI I) *  < J»  AP{I » J) ,WlDTH(I,JI,J  =  l,26) 
«50  COMTINUe  _ _ _ -  - - 


produce  ASALT  Cards  13,  14,  and  15  for  each  critical  component.  The  CALL 
statement  determines  the  location  in  the  Aircraft  Coordinate  System.  The 
first  WRITE  statement  sends  a  form  feed  to  the  print  file.  The  DO  loop 
iterates  for  each  critical  component.  The  next  WRITE  statement  forms 
Card  13  by  listing  the  name  and  coordinates  for  the  component.  The  third 
WRITE  statement  outputs  the  presented  area  and  width  of  the  presented  area 
for  Card  14.  The  fourth  WRITE  statement  outputs  the  average  Pk  at  each 
specified  time  for  the  component  for  Card  15.  The  final  WRITE  statement 
is  used  to  print  the  information  from  Cards  13  and  14. 

The  following  statements 


WHITE  (IwH.123)  (E«E»GT<n,I  =  I.10) 

DO  500  I  »  l.NCHIT 

WRITE  (IwH.12«)  I,N*MF(n,ICOWHfI).(PK(J.I).J  =  l.ll>) 
500  COMTINUE 

WRITE  (IQUT,125) 

STOP 


print  the  energy  flux  distribution  and  the  information  from  Card  15. 
Additionally,  a  reminder  to  the  user  to  finish  assembling  the  ASALT  input 
deck  is  output. 

The  statements 

900  WHITE  (IwH,126)  IIN.J 
STOP 

are  used  to  terminate  the  program  when  the  end  of  file  is  reached  unexpectedly 
when  reading  data  on  a  particulir  aspect.  The  WRITE  statement  prints  an 
error  message. 

The  next  statements 

950  WHITE  (IwH,127)  IIN 
STOP 

are  used  to  terminate  the  program  if  a  difference  in  values  is  detected 
between  different  views  where  no  difference  is  expected.  The  WRITE  state¬ 
ment  prints  an  error  message. 


The  last  group  of  statements 

101  FORMAT  (1018) 

102  format  (I0EF.2) 
lOI  format  (E8.2,21*) 

10a  FOHmat  (a8,3E8.2) 

HI  F0HM»t  CI'.SX.'VIEW  MUMF£H*,IJ.9*. 'HEWEHSED'.H*, 

S  'NOMREH  of  components'. 19». 'FLU*  TABLE’/ 

S  2*,'A7  W.FN.I,'  el  »',F««.1,8X,A4,  11*. 'total'. 

S  '  critical'. 13x,'TImC(SEC.)  FlUX(w/SO.Cm.) ’/ 

I  07x.I5.I9. 16X.F8.2,PX.F8,l/(TTx.F6.2,ex.F8.n) 

112  format  t’l'.lsx,'  PRESENTED  AREAS  AND  TRUE  COMPONENT  VULNERABLE’. 

S  '  AREAS  (SOIIARE  FEET)  PER  TIME  INCREMENT’/ 

S  .  ♦  ♦  ♦  COMPONENT  ♦  ♦  ♦  PRESENTED'. S9X. 'TIME  INCREMENTS 

S  '  /’  INDEX  NAME  number  aHEA'.7X.10F9.2) 
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113  FOBMaT  (lX,la.3X,A8.I6.F13.5,aX,10F9.a) 

121  format  Cl'l 

122  FORMAT  (•  ♦  ♦  ♦  component  ♦  ♦  ♦'/'  INDEX  NAME  NUMBER'* 

I  It'  LOOK-ANG  PRESENTED  AREA  »IDTM  ')/ 

*  lX,t3>3X,AB,l(i,tx,3(5x,'lNDEX  (SO.  METERS)  (METERS)')/ 

S  (1RX.3(I12.1X,2F12.2))) 

123  format  Cl'.iax,'*  ••  COMPONENT  PX 

S  'FUNCTIONS  FOR  ASALT  ••  *'/ 

S  45X, 'DAMAGING  ENERGY  LEVELS  IN  XILOJOULES/SO.CM. '/ 

S  3X,'+  ♦  ♦  COMPONENT  ♦  ♦  ♦  : ',F7,2,RF».2/ 

1  3X, 'index  name  number  l'.7R('-')) 

124  format  (IX, is, 3X, as. 16,'  1',10(F7.2,1X)) 

125  format  ('  all  done  -  ACC  The  aim  points  and  fault  tree') 

126  FORMAT  ('  UNEXPECTED  EOF  —  IINS',13,'  COMPONENT®' , 13) 

127  format  ('  VA  FILE  DOES  NOT  MATCH  —  IINs',13) 

IRS  FORMAT  ('  COMP', 14) 

ENO 


is  used  to  define  all  input  and  output  formats  and  to  end  Program  VAMERGE. 


SllF9nUT  IMF  ASPTOIND  (  AZrFLr  TLOOK  ) 

COMVFRT  FASrr,EM  LOflK  AZINUjTH  AND  LOOK  ELFVATIHM  jn  THE 
ASALT  INDEX  FDS  THE  SAME  LOOK  ANRLFS. 


FASTREN 

ASAL  r 

AZ 

el 

AZ 

EL 

INDEX 

IHO. 

-OO. 

0. 

0. 

1 

IFO. 

-05. 

0. 

05. 

2 

225. 

-05. 

05. 

05. 

3 

270. 

-05. 

90. 

OS. 

0 

315. 

-05. 

135. 

05. 

5 

0. 

-05. 

160. 

05. 

6 

«5. 

-05. 

225. 

05. 

7 

90. 

-05. 

270. 

05. 

P 

135. 

-05. 

315. 

05. 

9 

160. 

C. 

0. 

90. 

1  0 

225. 

0. 

05. 

90. 

1  1 

270. 

0. 

OO. 

90. 

12 

315. 

0. 

135. 

90. 

13 

0. 

0. 

160. 

90. 

10 

^5. 

0. 

225. 

90. 

15 

FO. 

0. 

270, 

oO. 

IH 

135. 

0. 

315. 

90. 

17 

160. 

05. 

0. 

135. 

16 

225. 

05. 

05. 

135. 

19 

270. 

05. 

90. 

135, 

20 

315. 

05. 

135. 

135. 

21 

0. 

05. 

160. 

135. 

22 

05. 

05, 

225, 

135. 

23 

90  . 

05. 

270. 

155. 

2  0 

135. 

05. 

315. 

135. 

25 

160. 

‘>0. 

0. 

IPO. 

26 

iriTERER  AZTX 

inteder  fltx 

TF  (AHSCEl-RO.)  .LE.  I.E-OS)  them 
ILROK  = 

FLSE  IF  ( A8S  (El.tQO, )  .LE.  l.E-OSl  ThFM 
ILROK  s  i 
FI  SF 

".•HTCH  flfvatiom? 

Fltx  = 

r  H  K  s  -45. 
on  10  T  s  1,5 

IF  (AmS(FI-CHk)  .RT.  l.F-OS)  them 
THK  =  rr-K  ♦  45. 

FLTX  =  FI  IX  +  tf 


c->  ri  o  o  r>  o  o  o  n 


FND  IF 

10  continue 

which  azimuth? 

IF  (CHK  .LT.  50.)  THEN 
CHK  =  0.0 

IF  (AZ  .LT.  180.)  THEM 
,  AZIX  =  8 
ELSE 

AZIX  =  2 

AZ  =  AZ  -  180. 

END  IF 

no  30  I  =  1,A 

IF  (ABS(AZ-CHK)  .GT.  l.h-05)  THEN 
CHK  =  CHK  +  as. 

AZIX  =  AZIX  +  1 
ENO  IF 
30  CONTINUE 

IF  (CHK  .LT,  laO)  Then 

the  index  is  ... 

ILHOK  s  FLIX  t  AZIX 
ELSE 

ERPOR 


WRITE  C8r901)  AZ»  EL 
END  IF 
ELSE 

WRITE  (8,901)  AZ,  FL 
FMO  TF 
END  IF 
C 

return 

c 

901  format  (*  ***  error  ***  cannot  CLASSIFY  LOOK  ANGLES  aZ,  EL*/ 
15X,2F10.2) 

END 


A- 2 


r>  n  o  o  o 


SDPRnuTINP  FlNnC0MO(IPT,TC0MP,  IC»^!CRIT) 

C 

DIMENSION  ICOMP(IOO) 

SEARCH  FOR  COMPONENT  NUMBER#  IC,  IN  ARRAY  ICnf^P  'a'HICH  CONTAINS 
NCRIT  COMPONENT  NUMRFRS.  RETURN  THE  ARRAY  POSITION  IN  IPT  OR 
THE  VALUE  0  IF  THE  COMPONFMT  IS  MOT  THERE. 

IPT  s  0 
I  =  0 

too  CONTINUE 

1  =  1  +  1 

IF  (TCOMP(I)  .EO.  IC)  IPT  =  I 
IF  ((I  .NE.  IPT)  .AMD.  (I  ,LT.  NCRID)  GO  TO  lOO 
C 

return 

END 


A- 3 


SHRROUTINE  GFTXYZ(  ICOyPrCdN'PrMrRTTf  N4N'E) 

CHARACTER<f«  MAME(IOO) 

niMFMSIOM  TCOMPC  100)  »cn‘>'P(3,  100) 

01  mens  I  ON  SHC2»  170)».IH(S,  170)  ,  AZV(3)  ,ELV(  5) 

01  MENS  TON  X(IOO) ,Y( too), 7(100) 

DIMENSION  NX(IOO) ,MY(100),NZ(100) 

DATA  AZV  /0.0,P0.0,P0.0/,  ELV  /O . 0 , 0 . 0 , -90 . 0/ 

DATA  X  /IQ0*0 .0/ ,  Y  /100*0.0/,  Z  /100*0.0/ 

DATA  NX  /100*0/,  NY  /100*0/,  NZ  /100*0/ 

READ  THE  FRONT,  LEFT  SIDE,  AND  HOTTOM  LINf  OF  SIGHT  SHOT  LINF 
target  descriptions  AMD  DETERMINE  THE  X,  Y,  AND  Z  COORDINATES 
OF  EACH  CRITICAL  COMPONENT 

DO  150  II.OS  =  1,3 
READ  (ILOS)  AZ,  EL 

IF  ((AZ  .FO.  AZYdLDS))  .AND.  (EL  .EO.  FI.YdLOS)))  THEN 
READ  (ILOS,  EnDsISO)  (DUM , ( SH ( I , J ) , I = 1 , ? ) , ( JH ( I , J ) , I r l , 5 ) 
>  J= 1,170) 

DO  100  J  =  1,170 

END  OF  VIEW? 

IF  (JH(2,J)  .FQ.  0)  GD  ID  ISO 
SY  =  SH(1,J) 

SZ  =  SM(2,.J) 

IC  =  JH(?,J) 

CALL  FINDCOMPdPT,  ICDMP,  TCf  NCRTT) 

IRT=0  FOR  NDNCRITICAL  COMPONENTS  (NOT  TN  ARRAY  TCOMR) 

IF  (IPT  .ME.  0)  THEN 

STHRE  SHOT  LINE  COORDINATES  —  DEPENDENT  ON  THE  CURRENT  '/IF'.'' 
IF  (ILOS  .FQ.  1)  THFN 

FRONT  VIF'^  --  coordinates  ARF  Y  AND  7  AIRCRAFT  COOROlNATFS 

YdPT)  =  YdPT)  ♦  SY 
NY (  [PT  )  =  NY ((PT )  +  1 
ZdPT)  =  ZdPT)  ♦  SZ 
NZdPT)  =  NZdPT)  1 
ELSE  IF  (fLUS  ,Fn,  ?)  THFM 

S[f)E  VTE'/'  --  COORD  I-JATFS  ARE  -X  AND  /  AIRChAFT  COOROThATPS 

»  (  TPT )  =  X  dPT)  -  SY 
NXflOT)  =  -ixdPr)  ♦  1 


ZCIPT)  =  Z(IPT)  +  S7 
MZ(IPT)  =  NZtrPT)  +  1 
ELSE 

RfiTTOM  VIEIN  ””  COOROTMATES  ARE  -X  AND  Y  AIRCRAFT  COURDI^iA  lES 

X(IPT)  =  X(TPT)  -  SY 
NX  (IPT)  s  NX( IPT)  +  1 
Y(TPT)  =  Y(IPT)  +  S7 
MY(IPT)  =  NYfIPT)  +  1 
END  IF 
END  TF 

contimje 

r,0  TO  20 
ELSE 

if(RITE  (6»in  ILOS»AZ»EL 
STOP 
END  IF 


END  OF  VIE’.ii 
1150  COMTINHE 

CCMPUTF  COMPONENT  LOCATIONS  IN  THE  ASALT  AIRCRAFT  COORDINATE. 
SYSTEM,  OSE  THE  AVERAGE  OF  THE  SHOT  LINE  COORDINATES  THAT 
intersected  them  IM  THESF  THREF  VIEftS 

—  ALSO  CONVERT  COORDINATES  FROM  INCHES  TO  mETFRS  -- 

NPITF  f6,i01)  NCR  IT 
DU  300  I  =  1,NCRIT 

TF  (MX(I)  ,NE.  0)  COMPdrl)  =  X(T)  /  FLUATC'X  ( I  )  )  *  O.O^Sa 

IF  (NY(I)  .NE.  0)  C^MP(^,T)  r  Y(T)  /  FLUAT(VY(I))  *  ').0;?Sa 

IF  (NZ(I)  .NF.  0)  COMP(5»I)  =  Zd)  /  FLOATCriZCn)  ♦  0.025a 

*)iRTTE  (N,302)  I,NAMEd),TCOMP(n,COMPdf  lUNXdl,  Cf)MP(2,d, 
i  NY(n,CnMP(3»I)»N7(I) 

300  CONTINUE 

RFTURM 

11  FORMAT  (*  ★★♦error***  INCORRFCI  LOS  FILE  FOR  VlE^''*fI3» 
f  '  •  AZ=*»FS.1»'  EL='rFS.l) 

301  FORMAT  ('l'r22X,*  — 'rI3,'  CRITICAL  COMPOiJENT  LOCATIPMS 

T  '0  +  +  ♦  Cn'’P(if!FA‘ T  ★  +  +'/ 

*  INDFX  MAMF  NUMHFR  '  ,  hX ,  •  X-COOPO.  SAMPLE*, 

>  ^X,•Y-^UORD.  SAiVPLE*,^X, 'Z-COijWD.  SAMPLE') 

302  FORMAT  ( 1  X  ,  T  4 ,  S  x  ,  AS  ,  I  ,  1  X  ,  3  (  K  1  2 . 2  ,  T  7 , 2X  )  ) 

END 


SMHROUTpiE  MAViFS(NAME»MCWIT) 

ChARACTF.W*H  NAME(tOO) 

READ  THE  COMPONENT  NAMES  FROM  LOGICAL  UNIT  7  IF  PRnviOFn 
OTHERHISF  INITIALIZE  TO  8LA.NKS 

read  (7,  120,EMn  =  l(i0)  (M  AME  (  H  ,  I  =  1  ,  NCR  I T  ) 

RETURN 

100  OP  no  I  =  IfNCRIT 

name (I)  =  * 

110  CPMTIWIiE 

RETURN 

format  (A8) 


120 


CSCDNTPOL  USI  IMIT,  LOCMTOM,  FTLF  =  l-3iS 
PWOGRAM  VAMERGF 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

n 


PPPGRAM  VAVIERGF  TS  USED  TO  RFAO  THE  VULNERARLE  AREA  FILES 
CREATED  RY  QKLOOK  PROGRAM  PEAKAYr  AVERAGE  THE  COMPOMfMT  PK'S, 
AGO  PRINT  THFM  IN  THE  ASALT  INPUT  FORMAT  (LOGICAL  UNIT  )  AS 
WELL  AS  IN  READARLE  FORM  ON  ThE  LINE  PRINTER  (LOGICAL  DMT,  6 


I/O  logical  unit  table  for  program  VAMERGE 


FORTRAN  logical  UN  IT  NUMBER 
1,  2,  3 

4 

5 

6 

7 


USE 

TARGET  SHOT  LU'E  DESCRIPTIONS 
FOR  the  FRONT,  LEFT,  AMO 
BOTTOM  VIEWS 

FILE  TO  BE  USED  FOR  ASALT  TMPiJT 
INPUT  FOR  VAMERGE,  ciUMHER  OF 

critical  components  in  (JKLOOK 

FILES 

READABLE  LINE  PRINTER  FILE 
printed  by  executing  vamergf 

component  name  FILF  (UPTIONALJ. 


a,  o,  10  MOT  USED 

11  THROUGH  3H  2h  VULNERABLE  AREA  FILES  FROM 

OKLOOK  PROGRAM  PEAKAY 


PARAMg lER 

r 

1! 

s 

Y 

DIMENSION 

OIVENSION 

DIMENSION 

niMENSTON 


(TOELT  =  O.S,  IPRIMT  r  LINLIM  s  ^0, 

XFP  s  0.0,  YEP  =  0.0,  XG  s  0.0,  YG  =  0.0, 

7G  =  0.0,  PSI  =  0.0,  NATM  r  1,  Y.IITTR  =  1.0, 
ZJTTTR  s  l.O,  SI.EWAZ  =  PO.O,  SLEWFL  =  aS.O, 

TRKTIM  =  0.0,  ATTEN  s  1.0,  RATTEN  =  l.F+30, 

MAI^pT  s  1) 

FTIM(25),  FXCM(?S),  TlMfSdO),  ENERGYdU) 
FTIM2(2S),  FXCM2(25),  TlMES2dO),  GUN(3) 
TCOMPdOO),  PAPEAdOO),  COMPAV  (1  no  ,  1  0  ) 

CnMP(  5,  1  00)  ,  APd00,26),  WlDTUd  00,?h) ,  Pt<(l0,10O) 


CUARACTERwE  NAME (100) ,hlanK 
CUARACTER*a  YQRM(2) 

OATA  YORN  /'mq  *YES  '/ 

data  blank  /'  V 

data  tout,  TRD,  1//R,  I  in  //*,S,6,IW 
data  AP  /2^00<»-1 .0/,  PK/10no*0.0/ 

OATA  ENERGY  /10-*0.0/ 

DATA  CUMP  /S00*0.0/ 

data  gun  /3*0.!)/ 


C 

C 


ASALT  CARD  1 


TDFlT,  IPRImT,  Ll'JLIM 


VNkTTE  (iniiT,lo3)  rnfiLr»IPPlMT,LTMLTV 

ASALT  CARD  2  —  WFAPnivi  LOCATIDM,  AMD  C.S.  REFHKEMCF. 

WRITE  (IOUT,10?)  GIIN,XFP,YFP,Xf;,  YQ,Zn,PSI 
READ  (IRD.lon  MCRIT 

read  the  first  VULNERARLE  ARFA  FTLE  from  logical  MMIT  TIM 

RFAD  (IIN,FMD=R00)  AZ,EL,IFMAX,(FTTM(T),FxCM(T),I=l,tFMAX),RVRS 
MnC0f''’P,fvlTIME/  (TIMES(I)  ,  I  =  1,MTIME) 

IRVRS  =  RVRS  +  1. 

WRITE  (  IWR,  1 1  1  )  (  I IN-IO)  »  A7,EL»  YORN  (  IRVRS)  ,  ixIOC  OMP  ,  NC  R I  T  , 

(FTIM(I) ,FYCH(I) »  T  =  1,IFMAX) 

WRITE  fTWR,tl?)  (  riMES(T)  »  1  =  1  »MTIV|F) 

WRITE  LASER  FI.UX  E'^ISSTOM  RATES,  ASALT  CARDS  3»  AND  5 

write  tIOliT,101)  IFMAX,NATN 

WRITE  (TOUT, 102)  (FXCM( I ) » T=l , TFMAX ) 

FTTMdFMAx)  =  l.F+30 

WRITE  (inuT,102)  (FTiN’d  )  ,  1  =  1  ,  IFMAX) 

ASALT  CARDS  h  AND  7  —  JITTER  AND  TRACKING 

WRITE  dOllT,102)  YJrTTR,ZJITTR 
write  d0UT,l02)  SLEWAZ»SLFwFLdRKTIM 

ASALT  CARDS  8  AND  R  —  ATMOSPHERIC  ATTENUATION 

WRITE  dnuT,l02)  ATTEN 
write  (TOUT, 102)  RATTEN 

ASALT  CARD  10  --  NO  SMOKE  CORRIDOR 

WRITE  dOUT,102) 

ASAlT  card  11  --  number  of  COmPUNENTS  and  atm  POINTS 
WRITP  dni)T,101)  NCRTTrNAIwPT 

ASAl.T  CARD  1?  —  energy  ARGUMFMTS,  COMPUTE  USING  FXCM  AND 

FTIM  ARRAYS  FROM  OKI.  OOK  FILE 

energy  d)  =  0.0 

IF  (NTIME  .LT,  )0)  then 
LIM  =  nTImf 

else 

LTm  s  o 
Ff.iD  IF 


non  non  noon  o  o  o 


I  ,LIM 


nn  20  T  = 

T1  =  0.0 
FL'IX  s  0.0 
J  =  0 

15  C0^JTI^'IIF 

J  =  J  +  1 

IF  tFTTM(J)  .LT.  TIN’FSd))  THEfvl 
OELT  =  FTIM(J)  -  T1 
FLUX  =  FLUX  +  (FXCM(J)  *  DFLT) 

T1  =  FTIW(J) 

FMO  IF 

IF  ((J  .LI.  IF'^AX)  .AMO.  (FTIVfJ)  .LT.  TIMES(I)n  GO  TO  IS 

OELT  =  TT^E5(I)  -  Tt 

FLUX  =  FLUX  ♦  (FXCM(J)  *  OELT) 

COMVEPT  FPON*  JOULES/SU.C^.  TO  MLOJOUI.FS/SU.C''!. 

ENFPGy(I*l)  =  FLUX  *  O.OOl 
20  CONTINUE 

WRITE  (IOUT,102)  ( ENERGY ( I ) , I = 1 , L IM+ 1) 

REAO  component  NA^Fs  IF  PROVIDED^  AND  CONVERT  LOOK-ANGLES  TO 

asalt  tnoex 

CALL  NAMESCNAmF.MCRIT) 

no  250  I  IN  =  11,46 

IF  (IIN  .NF.  11)  THEN 

RFAO  NEXT  VULNFRAULE  AREA  FILE  FROM  LOGICAL  UNIT  TIN 

REAO( I TM,EMO=ROO)  AZ , EL , T FMfl X? , ( FT TM2 ( I) , FXC M2 ( I ) , I = 1 , I F m A X2 ) 
h  RVRSrNOCOMPPrNTIME?, ( TIMES?! I ) r 1=1 rNTTME?) 

IRVRS  =  RVRS  +  1. 

WRITE  ( IWR,  1  1  1 )  (  IIM-10)  ,  AZ,EL,  YORN  ( IR'/RS)  ,  i-iornr 'P2 ,  NCR  I  T  , 

S  (FrTM2(I),FXr.M2(I),l  =  l,IFMAX2) 

write  (IWR, 112)  (TIIwFS2(I),I  =  t,NTIMF.2) 

TEST  TO  BF  SURF  NFW  VA  FTLE  IS  COMPATIBLE 

FTlM2f IFMAX2)  =  l.F+30 

IF  ((IFNAX2  .nE.  IFNAx  )  .OR.  (NOCOmP2  .NF.  NOCOf-P) 

«  .OR.  (NITMF2  .NF.  MTIME))  GO  TO  950 

00  300  I  =  l,rFMAX 

IF  ((FTTMPCI)  .MF.  FTIM(I))  .UR.  (Fxr.rVd)  .'F.  RxCUf))) 

s  GO  rn  950 

400  CONTINUE 

no  4?0  I  =  1, NT  IMF 

IF  dIMtSPd)  .'jF.  TIMFSd))  GO  TO  9S0 
320  CONTIVUF 

END  IF 

CALL  ASPIOIimOI  a;,EL,  ILOOX  ) 


o  o  o  o  o  i“>  n  v*>  r>  r>  o  o  o  r>  o  d  o  r»  o 


PFAO  PRESFNTFn  A^n  VULNERABLE  AWFAS  FUR  EACH  CRITTCAL  CnMPnuFNT 
no  ;?oo  j  s  i»MCwiT 

RE  AO  (  IIN,FMn  =  Ra())  ICO’^Pf  J)  ,PAREA(.I)  ,  (  CU^'P  A  V  ( .t  ,  K  )  ,K  =  l  ,NTIMF1 
TF  (NAME(J)  .FO.  BLANK) 

S  WRITE  (NAMFC.n  » IPS)  ICOMPCJ) 

WRITE  (IWR,  1 1  3)  J,NAMF(J)  »  ICOMPC  J)  ,PAPEA(  J)  ,  (  CU'^'P  A  V  (  J  ,  K  )  , 

*  K  s  1,NTIME) 

200  CONTINUE 

USE  THE  PRESENTED  AMO  VULNERABLE  AREAS  IN  SO,  FEET 
TO  COMPUTE  PRESENTED  AREA  AND  WIDTH  IN  SO.  METERS 
ASSUME  SQUARE  PRESENTED  AREA 

no  2a0  J  =  1»NCRIT 

AP(J,ILOOK)  =  PAREA(J)  ♦  O.0P2P030U 
•WIDTHIJ,  ILOOK)  =  SQWT(AP(  J,  ILOOK  )  ) 

PK(1,J)  =  0.0 

TF  (PAREA(J)  .GT.  l.E-06)  Thfh 
SUM  PK'S  OVER  ALL  VIEWS 
DO  230  I  =  2.LIM 

PK(IrJ)  =  PK(T#J)  +  COMPAV (J, r-t )  /  PARFA(J) 

230  CONTTMUE 

END  TF 
240  COMTlriUE 
2S0  CONTINUE 

average  the  PK'S  FROM  ALL  VIEWS 

400  no  410  J  =  2/LIM 

DO  405  I  =  IrNCRIT 

PK(J,  I)  =  PK(J,I)  /  P.h.O 
405  CONTIMUF 
4)0  CONTINUE 

determine  the  component  centroid  LOCAIinNS 

CALL  GE  TXY/(  T  COMP  »  COMP  ,  fJCRT  T  »  NAME ) 
write  fTWw,i2i) 

ASALT  cards  13f  14r  AND  15  FUR  FACH  CRITICAL  (TU-’Pn-.E  -i  T 
no  45  0  T  =  IfNTRTT 

WRITF  (iniiT,l04)  fJAMF(  T)  »  fCUMR  f  J,  I  )  ,  J=1  ,  SI 
WPITF  f TUI  IT,  10?)  (AP(I,J) , WIDTH ( T,J) ,J  =  1 , PH) 

WRTTF  (rniiT,10?)  (PK  f  J,  I  )  ,  J  =  1  ,  1  0) 

wRITF  (  TwR,  1?2)  T  ,NAME  (  [)  ,  IcnMP(  T  )  ,  (  I,  AP  (  t  ,.n  TDTHI  T  ,,n  ,  J  =  1  ,  PH) 
aSO  CONTINUE 


A-10 


ono  r>oo  ooo  ooo 


P^^I^'T  COMPO^'FNT  PK  FUNCTIONS  ON  THF  LTNF.  PPINTER  TOG 

InWTTE  C1WH,123)  (ENEWGY(I),I  =  l,  tO) 
on  500  I  =  UNCRTr 

WRITE  (Ia‘R,12«)  T,NAMF(  I)  ,  ICOMPI  I ) ,  (PK  (  J  ,  T  )  ,  J  =  1 ,  10) 

500  CONTINUE 

ALL  PONE  —  format  125  IS  A  REMINPFR  TO  FINISH  THE  ASALT  IMP'II 

WRITE  (TOUT, 125) 

STOP 

fatal  errors  oftfcteo 

POO  write  (r'<P,l2fe)  IIM,J 
STOP 

P50  write  (Hcir,127)  I  IN 
STOP 

FORMATS 

101  POPMAT  (1018) 

102  FORMAT  (10E8.?) 

103  FORMAT  (E8.2»2Irt) 
lOA  FORMA!  (Afl,3Ffl.2) 

lit  FORMAT  (  *1  'VIEW  NUMBERS  13»RX, 'REVERSFO' ,ux, 

S  'NUMBER  OF  COMPONENTS IPX , 'FLUX  TABLE'/ 

T  ?X,'A7  =',F6.1,»  FL  =' ,F8. 1 rflX,Aa, 1 1 X, 'TOTAL  '  / 

S  '  CRITICAL'rl3X,'riMF(SEC.)  FLUX ( w/SO .  CM .  )  '  / 

f  «7X,T5»IR,lftX,Fr>.2,8X,FH.l/(77X,Ff>.2»BX,F«.l)) 

112  FORMAT  t'l'rlRX,*  PRESEMTEO  AREAS  ANO  TRUE  COMPONENT  VUINERAPLF', 

*  '  AREAS  (SQUARE  FEET)  PFP  TIME  INCREMENT'/ 

S  '  +  +  ♦  COMPQNFMT  +  +  +  PRESENTEr,'*,3RX, 'TIME  TMCRFMFNTS' 

I  /'  TNOEX  NAME  MUMPFR  ARE A  *  ,  7X , 1 OFR . 2 ) 

113  FORMAT  (lX,ia,3X,A8,I6»F13.5fUX,10FR,«) 

121  format  ('!') 

122  FORMAT  ('  +  +  t  COMPONENT  ♦  ♦  +'/'  INDEX  NAME  NUMBER '» 

T  3('  LOOK-AMG  PRESFNTFD  AREA  WIDTH  ')/ 

$  1 X , T 3, 3X f A8, 16r 1X» 3(5X f  '  INDEX  (SO.  HFTERS)  (mfTFRS)')/ 

f  (I9x,3(ri2f IX,?FI?.2))) 

123  Format  ( * i ' r i ux , ' *  *  *  component  p  k  *, 

t.  'C  (I  N  c  T  T  0  M  s  FOR  A  s  A  L  T  ♦  ★  ♦*/ 

:i,  asx, 'DAMAGING  FNFRGY  lFVFLS  TN  k  I  LG  JOI 'I.E  S  /  Su  .  CM  .  '  / 

,>  3<r'+  ♦  +  CGMPONENT  ♦  ,  F  7 . 2 ,  «F  B  .  2/ 

B  3x,'tnofx  name  number  :'r7y('-')) 

12a  Ff)BMAT  (  1  X  ,  T5,  ix»  AH,  TN,  '  !  '  ,  1  0  (  F  7 . 2 , 1  x  )  ) 

125  FgRMAT  ('  AIL  GONE  -  AOn  THf  1  .v,  POINTS  AMO  FAULT  TREE') 

12^,  format  ('  GmFXPECTFD  foe  —  flN=',T3»'  CG"  rgmfn  r=  *  ,  I  3 1 
127  EfiRMAT  ('  VA  file  DOES  NOT  match  --  TIN=',T3) 

IPS  FORMAT  ('  CG''P'»IP) 

EMU 


